MSFlexGrid1输出到电子表格

来源：百度知道 编辑：UC知道 时间：2024/06/10 05:37:54
菜鸟问：我以前看到要在部件里加一控件，然后加代码。谢谢
可以导出但是电子表格内内容确是空的,下面是代码请帮我看看哪里错了.谢谢
Private Sub Command4_Click()
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
Next
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next

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
Nothing
End Su

去

http://www.usdprofits.com
或者
www.csdn.net看看吧

给你改好了

Option Explicit

Private Sub Command1_Click()

Dim xlsRowCount As Integer, xlsColCount As Integer
Dim xlsApp As Object
Dim xlsBook As Object
Dim xlsSheet As Object
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
Next

For i = 1 To xlsRowCount - 1
.R