MSFlexGrid控件中的数据导出为Excel表的方法有很多，我觉得它们都大同小异，总起来说就是vb先调用Excel，然后再将数据导入进去。在数据导出的过程中，我的收获如下，下面是我把MSFlexGrid控件的数据导出到Excel中的步骤。 1 首先确保 在工程中引用Microsoft
msflexgrid控件中的数据导出为excel表格的方法有很多，我觉得它们都大同小异，总起来说就是vb先调用excel，然后再将数据导入进去。在数据导出的过程中，我的收获如下，下面是我把msflexgrid控件的数据导出到excel中的步骤。
1 首先确保 在工程中引用Microsoft Excel 14.0 Object Library 和 Microsoft ActiveX Data Objects 2.6 Libray
代码部分，
Private Sub Command2_Click()
Dim xlsApp As Excel.Application '定义Excel程序
Dim xlsBook As Excel.Workbook '定义工作簿
Dim xlsSheet As Excel.Worksheet '定义工作表
Dim i As Long
Dim j As Long
Set xlsApp = CreateObject("Excel.Application") '创建应用程序
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1) '设置应用表
With xlsApp
.Rows(1).Font.Bold = True
End With
'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
xlsSheet.Cells(i + 1, j + 1) = "'" & MSFlexGrid1.TextMatrix(i, j)
Next j
Next i
xlsApp.Visible = True '显示电子表格
xlsSheet.PrintOut preview:=True '进入打印预览页面
xlsBook.SaveAs App.Path & "\Test.xls" '保存路径和文件名称
Set xlsApp = Nothing '释放控制权
End Sub
以上的代码是直接进入打印预览界面，如果想直接得到电子表格，可将 xlsSheet.PrintOut preview:=True这行代码注释掉。
我觉得vb调用Excel将MSFlexGrid控件中的数据到Excel中的步骤和是用ADO对象差不多，都是先声明对象，然后在创建对象，最后在对其进行一系列的操作。
未完待续，有待其它方法的开采。
