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 Integer
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
On Error Resume Next
xlsRowCount = FlexGrid.Rows
xlsColCount = FlexGrid.Cols
With xlsSheet
'設定電子表格各列的寬度
For i = 1 To xlsColCount + 0 'xlsColCount + 1加1就表示在輸出的最后一列在加一列12.5寬的列，減就是相反
.Columns(i).ColumnWidth = 8 '每一個漢字大概占2的寬度（在默認的12號字的情況下）
Next
'設定電子表格各行的高度
For i = 1 To xlsRowCount - 0
.Rows(i).RowHeight = 18
Next
'把MSFlexGrid1的內容寫入到電子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
.Cells(i + 1, j + 1).Value = FlexGrid.TextMatrix(i, j)
With xlsApp.ActiveSheet.Range("A1:k1000").Borders
.LineStyle = 1
.Weight = 2
End With
Next
Next
End With
xlsBook.SaveAs "D:\SGXT\查詢顯示結果.xls" 'App.Path & "\Test.xls" '保存，如果不指定保存路徑及檔案名，則默認存到“我的檔案”下 Book1.xls
MsgBox "已將檔案匯出到D:\SGXT\查詢顯示結果.xls完成！", vbInformation, "提示"
xlsApp.Visible = True '顯示電子表格
Set xlsApp = Nothing '交還控制給Excel
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/116753.html
下一篇：求大神幫忙。（模擬考試系統）