机房收费系统之导出excel

前言：
在机房收费系统中，需要把查到的数据导出到excel表中，下面是实现这一功能的方法之一。

解决方法：
1. 第一步：添加引用excel表
现在VB环境中找到“工程”→“引用”引用excel:

如果找不到上述的引用，可以先在自己的电脑系统中找到Excel.exe应用程序的具体位置，然后在“引用”中点击浏览，文件类型选择“可执行文件”按刚才的路径选择Excel.exe文件，单击打开，就可以加载成功了。

2. 第二步：添加代码

    Dim ExcelApp As Excel.Application  
    Dim ExcelBook As Excel.Workbook
    Dim ExcelSheet As Excel.Worksheet
    Dim ExcelRange As Excel.Range

    Dim i As Integer       '定义横坐标
    Dim j As Integer       '定义纵坐标
If MSFlexGrid1.Text = "" Then
    MsgBox "没有记录"
    Exit Sub
Else
    Set ExcelApp = CreateObject("Excel.application")    '创建Excel应用程序对象
    Set ExcelBook = ExcelApp.Workbooks.Add                 '创建一个工作簿
    Set ExcelSheet = ExcelBook.Worksheets(1)               '创建一个工作表

    DoEvents           '转让控制权，以便让操作系统处理其它的事件
    With MSFlexGrid1      '将FlexGrid控件中内容导入Excel表格中
        For i = 0 To .rows - 1         '遍历所有的行
            For j = 0 To .cols - 1     '遍历所有的列
                DoEvents                 '转让控制权，以便让操作系统处理其它的事件
                ExcelApp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)   '创建新的单元格，并添加FlexGrid中的内容
            Next j
        Next i

    End With
    MsgBox "导出完成！", vbOKOnly + vbExclamation, "提示"                       '保存成功提示信息
    ExcelApp.Visible = True                                                                                '显示表格
End If

这样，点击导出的时候就可以自动导出为excel了，这只是其中的一种方法，遇到问题不要急，学会站在巨人的肩膀上。