机房收费系统（1）——导出为Excel文本

    机房收费系统是在学生管理系统之后的又一个自己做的信息管理系统，它在学生管理系统的基础之上有了

部分的拓展，同时也更加接近真正一个比较完备的系统。

    在机房收费系统中有很多值得学习，同时也是对自己今后的学习比较有帮助的功能模块，在这里就先拿

将数据导出为Excel文本的模块和大家分享：

 

Private Sub CmdExport_Click()
    MSHFlexGrid1.Redraw = False                                    '关闭表格重画，加快运行速度
    Set xlApp = CreateObject("Excel.Application")                  '创建EXCEL对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\操作员工作记录.xlsx") '打开已经存在的EXCEL工件簿文件
    xlApp.Visible = True                                           '设置EXCEL对象可见（或不可见）
    Set xlSheet = xlBook.Worksheets("Sheet1")                      '设置活动工作表
   
    For R = 0 To MSHFlexGrid1.Rows - 1                             '行循环
        For C = 0 To MSHFlexGrid1.Cols - 1                          '列循环
       MSHFlexGrid1.Row = R
       MSHFlexGrid1.Col = C
        xlBook.Worksheets("Sheet1").Cells(R + 1, C + 1) = MSHFlexGrid1.Text '保存到EXCEL
       Next C
    Next R
   
    MSHFlexGrid1.Redraw = True
   
    'xlsheet.PrintOut '打印工作表
   
    xlApp.DisplayAlerts = False                                     '不进行安全提示
   
    'xlBook.Close (False)                                            '关闭工作簿
   
    Set xlSheet = Nothing
    Set xlBook = Nothing
    'xlApp.Quit
    Set xlApp = Nothing
End Sub

    对于导出为Excel来说并不是很难，只是将MSHFLlexGride控件中内容对应显示在Excel中即可，重要的是

了解语句的实现xlBook.Worksheets("Sheet1").Cells(R + 1, C + 1) = MSHFlexGrid1.Text ，同时需要

注意的是一定要根据自己代码中Excel表格路径的设置将Excel工作表放在相应的位置，例如自己的例子中Set

xlBook = xlApp.Workbooks.Open(App.Path & "\操作员工作记录.xlsx")，所以自己将工作表放在了系统的

统计目录下。

    希望自己的总结能对大家有所帮助！