机房优化(导出Excel篇)

最新推荐文章于 2019-04-26 14:29:00 发布

原创

最新推荐文章于 2019-04-26 14:29:00 发布 · 376 阅读

1 ·

CC 4.0 BY-SA版权

博客讲述了作者在机房优化过程中遇到的导出Excel的问题，以及在师父指导下尝试并总结的三种导出Excel的方法。方法二允许使用者自定义存储路径，而方法三因Office版本问题未被采用，将在后续机房优化中尝试应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在上周与师父的机房第一遍验收中发现了很多没有注意到的小问题。其中师父点出了我的导出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                               '遍历所有的列
                DoEvents                                        '转让控制权，以便让操作系统处理其他的事件