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

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

屈文哲

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

阅读量964

点赞数

分类专栏：【编程语言】

本文链接：https://blog.csdn.net/quwenzhe/article/details/10135987

版权

【编程语言】专栏收录该内容

61 篇文章 1 订阅

订阅专栏

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名称)