´**
´export grid to excel
Private Sub exportExcel(grid As EditGridCtrlLib.EditGridCtrl)
Dim xlApp       As Object       ´*Excel.Application    ´
Dim xlBook      As Object       ´*Excel.Workbook       ´
Dim xlSheet     As Object       ´*Excel.Worksheet      ´
Dim cx          As Long
Dim data()      As String
Dim cnt         As Integer      ´ visible column´s count
Dim curCol      As Long
Dim i           As Integer
Dim j           As Integer

原文转自：http://www.ltesting.net