export grid to excel fast and wyswyg

´**
´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

文章来源于领测软件测试网 https://www.ltesting.net/