请问如何将MsHFlexGrid的内容导出到excel中？谢谢！！！

[luccy]

rt

[li_ping]

Private Sub Command1_Click()
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 vsFlex.Rows - 1
For J = 1 To vsFlexTotal.Cols - 1
tmpsheet.Cells(i + 1, J) = vsFlex.TextMatrix(i, J)
Next J
Next i
tmpexcel.Visible = True
End Sub

[ayuu]

来晚了。

楼上的是正解

[dalu007]

我用的是ExcelXP ,数据导入到ExcelXP后，发现类似“0000012345”的单元格文本都被转换成了“12345”，自动被略掉了前面的‘0’，谁帮帮我。。。。。。。。。。。。