机房收费系统之导出Excel

最新推荐文章于 2019-10-27 21:04:51 发布

原创最新推荐文章于 2019-10-27 21:04:51 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍如何使用MSHFlexGrid控件将数据导出到Excel表中。通过VBA代码实现单元格数据填充，并展示了一个具体的示例。

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

机房收费系统中有很多窗体需要用到MSHFlexGrid控件导出Excel表格。

首先，需要添加引用：

其次，就是代码了：

Private Sub cmdExcel_Click()

    Dim xlapp As Excel.Application '声明EXCEL应用程序对象
    Dim xlbook As Excel.Workbook '声明EXCEL工件簿
    Dim xlsheet As Excel.Worksheet '声明设置的活动工作表
    
    Set xlapp = New Excel.Application '创建一个电子表格
    Set xlbook = xlapp.Workbooks.Add '新建一个工作簿文件
    Set xlsheet = xlbook.Worksheets.Add '设置活动工作表
    
    Dim row As Integer '循环变量，用于控制行
    Dim col As Integer '循环变量，用于控制列
    
    With MyFlexGrid
        For row = 0 To .Rows - 1 '读取所有的行
            For col = 0 To .Cols - 1 '读取所有的列
                xlsheet.Cells(row + 1, col + 1).Value = .TextMatrix(row, col) '给单元格赋值
            Next col
        Next row
    End With
    
    xlapp.Visible = True  '使Excel表可见
    
    Exit Sub
    
End Sub