用MSHFLEXGRID控件显示的数据导出到EXCEL

 

Dim xlsRowCount As Integer, xlsColCount As Integer '生成的表格的行数和列数
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
On Error Resume Next
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols


With xlsSheet
'设置电子表格各列的宽度
For i = 1 To xlsColCount - 1
Columns(i).ColumnWidth = 5 '每一个汉字大概占2的宽度（在默认的12号字的情况下）

Next


'设置电子表格各行的高度
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next

'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
.Cells(i + 1, j + 1).Value = MSHFlexGrid1.TextMatrix(i, j + 1)
Next
Next
End With

xlsApp.Visible = True '显示电子表格
'xlsBook.SaveAs App.Path & "/Test.xls" '保存，如果不指定保存路径及文件名，则默认存到“我的文档”下 Book1.xls
Set xlsApp = Nothing '交还控制给Excel