把MSFLEXGRID里的数据导出到指定的EXCEL里
yfxpw 2010-11-28 02:52:14 Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
Dim i As Integer
Dim j As Integer
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
xlsSheet.Cells(i + 2, j + 1) = MSFlexGrid1.TextMatrix(i, j)
Next
Next
xlsApp.Visible = True
Set xlsApp = Nothing
以上代码把MSFLEXGRID里的数据导出到新增的EXCEL里,而我想导到同一目录下的名为99.xls里的SHEET1里,在看不到EXCEL表情况下我还要操作此表,如合并等,如何写?我是新手。