机房优化(导出Excel篇)

在上周与师父的机房第一遍验收中发现了很多没有注意到的小问题。其中师父点出了我的导出Excel的不足，并给我提出了建议。于是经过了大量的尝试我找到了三种导出Excel的方法。

方法一

这种方法是我最开始使用的方法

private cmdoutfile_click（）
    Dim ExcelApp As excel.Application
    Dim ExcelBook As excel.Workbook
    Dim ExcelSheet As excel.Worksheet
    Dim ExcelRange As excel.Range
    Dim i, j As Integer

    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                               '遍历所有的列
                D