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名称)
机房收费系统之导出Excel函数
最新推荐文章于 2020-05-09 17:02:19 发布