机房收费系统之vb中的MSFlexGrid控件中的数据导出为Excel的步骤

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对象差不多，都是先声明对象，然后在创建对象，最后在对其进行一系列的操作。

未完待续，有待其它方法的开采。