如何把<em>MSHFlexGrid</em>里的数据导出至Excel-mshflexgrid

Dim tmpexcel As Excel.Application, tmpsheet As Excel.Worksheet
Dim i As Integer, j As Integer
Set tmpexcel = New Excel.Application
tmpexcel.Workbooks.Add (1)
Set tmpsheet = tmpexcel.ActiveWorkbook.ActiveSheet
For i = 0 To MSHFlexGrid1.Rows - 1
For j = 1 To MSHFlexGrid1.Cols - 1
tmpsheet.Cells(i + 1, j) = MSHFlexGrid1.TextMatrix(i, j)
Next j
Next i

经过测试zhidao，完全可版以导出到权EXCEL

dim ExcelApp As Excel.Application
Set ExcelApp = GetObject(, "Excel.Application")
dim i as Integer
dim j as Integer
With MSHFlexGrid1 '将百MSHFlexGrid1中内容度写知到道EXCEL表格回中答
For i = 0 To .Rows - 1
For J = 0 To .Cols - 1
DoEvents
ExcelApp.ActiveSheet.Cells(i + 1, J + 1) = .TextMatrix(i, J)
Next J
Next i
End With
留个QQ我给你看看

'这是我自己的程序中的一段,能导出到EXCEL模板中,进行打印,等下e5a48de588b6e799bee5baa6e997aee7ad94337下我改得清楚一点再贴上来

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

以下是精简后的代码,不清楚你工作中的一些细节,所以如有问题与我讨论
Private Sub Command1_Click()

MSFlexGrid1.Redraw = False '关闭表格重画，加快运行速度
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\对账模板.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表

For R = 0 To MSFlexGrid1.Rows - 1 '行循环
For C = 0 To MSFlexGrid1.Cols - 1 '列循环
MSFlexGrid1.Row = R
MSFlexGrid1.Col = C
xlBook.Worksheets("Sheet1").Cells(R + 1, C + 1) = MSFlexGrid1.Text '保存到EXCEL
Next C
Next R

MSFlexGrid1.Redraw = True

'xlsheet.PrintOut '打印工作表

xlApp.DisplayAlerts = False '不进行安全提示

'xlBook.Close (False) '关闭工作簿

Set xlsheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

End Sub