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

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