机房收费系统之导出为Excel

         很多查询结果在MSHFlexGrid中显示后，我们还希望有那么一个独立的地方呈现这些数据，既清晰还可以进行一些编辑运算。下面是如何实现MSHFlexGrid中查询结果显示在Eccel表格中。

首先，选择 工程—引用—Microsoft Excel 14.0 Object Library 。

 代码部分：

Private Sub cmdTable_Click()
    Dim i As Integer
    Dim j As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = CreateObject("Excel.Application")    '实例化对象xlApp,这句话运行一次就有一个新的Excel窗口出来,即一个新的应用程序
        xlApp.Visible = True
        
    Set xlBook = xlApp.Workbooks.Add      '这句话运行一次就有一个新的工作簿文件出来，工作簿就在xlApp这个窗口里面
    Set xlSheet = xlBook.Worksheets(1)    '这句话获取xlbook工作簿里面第二个sheet表。一般默认一个工作簿新建后有三张表，如果不够用就用 xlbook.Worksheets.Add增加
    
    For i = 0 To myflexgrid.Rows - 1
        For j = 0 To myflexgrid.Cols - 1
           myflexgrid.Row = i
           myflexgrid.Col = j
           xlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)
        Next j
    Next i
    
End Sub

这样就OK了。