机房收费系统之导出Excel函数

最新推荐文章于 2021-02-02 04:44:20 发布

最新推荐文章于 2021-02-02 04:44:20 发布 · 89 阅读

本文介绍了一个使用VBA编写的子程序，该程序能够将MSHFlexGrid控件中的数据导出到Excel文件中。通过定义一系列变量并利用VBA与Excel的交互能力，实现了从FlexGrid读取数据并将其写入Excel的功能。此外，还提供了如何调用此子程序的方法。

Public Sub ToExcel(Flex As MSHFlexGrid)
   
    On Error Resume Next
    Dim oExcel As Excel.Application
    Dim obook As Excel.Workbook
    Dim objExlSht As Excel.Worksheet

    Dim listrst() As Variant
    Dim lngRows As Long
    Dim lngCols As Long
    Dim intIndex1 As Integer
    Dim intIndex2 As Integer

    Set oExcel = New Excel.Application
    Set obook = oExcel.Workbooks.Add
    Set objExlSht = obook.ActiveSheet

    lngRows = Flex.Rows
    lngCols = Flex.Cols

    ReDim listrst(lngRows, lngCols)

    For intIndex1 = 0 To Flex.Rows - 1
        For intIndex2 = 0 To Flex.Cols - 1
            listrst(intIndex1, intIndex2) = Trim(Flex.TextMatrix(intIndex1, intIndex2))
        Next
    Next

    DoEvents
    With objExlSht
        oExcel.Intersect(.Range(.Rows(1), .Rows(lngRows)), .Range(.Columns(1), .Columns(lngCols))).Value = listrst

    End With
    oExcel.Visible = True
    oExcel.Interactive = True
End Sub

调用方法：call ToExcel(MSHFlexGride名称)