机房收费系统之将数据导出到Excel

机房中有好多信息需要导入到excel表格中，需要引用控件Microsoft Excel 15.0 Object Library，可是在工程引用中却没有找到，找了好久都没找到，只好另谋出路。网上搜到的结果是，可以从浏览中找到excel.exe的安装路径。如下，先将文件类型选为可执行文件（.exe;.dll）,然后找到excel.EXE。默认安装路径：C:\Program Files\Microsoft Office\OFFICE15下的excel.exe。
这样，此控件就添加到引用栏里了。

至于具体的将数据导出到Excel中，

Private Sub Excel_Click()                                           '将数据导出到excel

    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.Visible = True
    '实例化工作簿和表单
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    '将MSHFLEXGRID中的数据导入到excel
    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
    Next
End Sub

这样就可以将数据导出到excel中，这只是简单的能导出，还需要完善。