机房收费系统之导出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名称)