第一次机房收费系统---导出Excel表

机房中有几个窗体用到了导出Excel的功能，但是要进行这一步，就需要引用，这篇博客就来分享一下具体步骤。
一、引用部件
工程–引用–

引用成功这个部件之后，进行第二步
二、、代码编写
具体代码如下：

Dim ExcelApp As Excel.Application    '定义excel表格应用程序
    Dim ExcelBook As Excel.Workbook      '定义Excel表格工作簿
    Dim ExcelSheet As Excel.Worksheet    '定义Excel表格工作表
    
    Dim i As Integer                     '定义excel表中的行变量
    Dim j As Integer                     '定义excel表中的列变量
    
    Set ExcelApp = CreateObject("Excel.application")   '创建一个excel应用程序对象
    Set ExcelBook = ExcelApp.Workbooks.Add             '创建一个工作簿
    Set ExcelSheet = ExcelBook.Worksheets(1)           '创建一个工作表
    
    DoEvents
    '因以下代码运行时间较长，所以转让控制权，让操作系统处理其他事件，避免操作不当误认为死机
    
    If MSFlexGrid.rows <= 1 Then
        MsgBox "没有可导出数据", vbOKOnly + vbExclamation, "提示"
    End If
    
    With MSFlexGrid
        For i = 0 To .rows - 1   '循环添加行内容
        For j = 0 To .cols - 1   '循环添加列内容
        DoEvents
        ExcelApp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j) '添加单元格内容
        Next j
        Next i
    End With
    
    ExcelApp.ActiveWorkbook.SaveAs App.Path & "\学生查询.xls"   '设置Excel保存路径
    ExcelApp.ActiveWorkbook.Saved = True     '保存excel表格
    MsgBox "导出成功！", vbOKOnly + vbExclamation, "提示"
    ExcelApp.Visible = True    '显示Excel表格
    
    Set ExcelApp = Nothing  '释放Excelapp对象
    Set ExcelBook = Nothing
    Set ExcelSheet = Nothing
    

只要引用成功那个部件，然后写出正确代码，就可以顺利导出了。