如何将mshflexgrid中的数据导入到excel中？

Question

如何将mshflexgrid中的数据导入到excel中？
谢谢了
在线等。

Answer 1

偶的例子，绝对好使！注意把行列对应上Private Sub MnuSave_Click()Rem 保存表格中的数据
Dim FileName As String                       '''''''''''将数据保存到Excel表里
Dim i As Integer
CommDiag1.FileName = ""
CommDiag1.Filter = "Excel 表|*.xls"
CommDiag1.ShowSave
FileName = CommDiag1.FileName
If FileName = "" Then
  Exit Sub
End If
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)                            ''''''打开Excel表
xlSheet.Activate                    ''激活工作表
xlSheet.Cells(1, 1) = MSHFlexGrid1.TextMatrix(0, 0)                    ''''Excel表头填写
xlSheet.Cells(1, 2) = MSHFlexGrid1.TextMatrix(0, 1)
xlSheet.Cells(1, 3) = MSHFlexGrid1.TextMatrix(0, 2)
xlSheet.Cells(1, 4) = MSHFlexGrid1.TextMatrix(0, 3)
xlSheet.Cells(1, 5) = MSHFlexGrid1.TextMatrix(0, 4)
xlSheet.Cells(1, 6) = MSHFlexGrid1.TextMatrix(0, 5)
xlSheet.Cells(1, 7) = MSHFlexGrid1.TextMatrix(0, 6)
xlSheet.Cells(1, 8) = MSHFlexGrid1.TextMatrix(0, 7)
xlSheet.Cells(1, 9) = MSHFlexGrid1.TextMatrix(0, 8)
xlSheet.Cells(1, 10) = MSHFlexGrid1.TextMatrix(0, 9)
xlSheet.Cells(1, 11) = MSHFlexGrid1.TextMatrix(0, 10)
For i = 1 To 546
''For Alfi = 0 To 90 Step 18
xlSheet.Cells(i + 1, 1) = MSHFlexGrid1.TextMatrix(i, 0)                     '''''将MSFlexGrid数据导入到Excel 中
xlSheet.Cells(i + 1, 2) = MSHFlexGrid1.TextMatrix(i, 1)
xlSheet.Cells(i + 1, 3) = MSHFlexGrid1.TextMatrix(i, 2)
xlSheet.Cells(i + 1, 4) = MSHFlexGrid1.TextMatrix(i, 3)
xlSheet.Cells(i + 1, 5) = MSHFlexGrid1.TextMatrix(i, 4)
xlSheet.Cells(i + 1, 6) = MSHFlexGrid1.TextMatrix(i, 5)
xlSheet.Cells(i + 1, 7) = MSHFlexGrid1.TextMatrix(i, 6)
xlSheet.Cells(i + 1, 8) = MSHFlexGrid1.TextMatrix(i, 7)
xlSheet.Cells(i + 1, 9) = MSHFlexGrid1.TextMatrix(i, 8)
xlSheet.Cells(i + 1, 10) = MSHFlexGrid1.TextMatrix(i, 9)
xlSheet.Cells(i + 1, 11) = MSHFlexGrid1.TextMatrix(i, 10)
''Next Alfi
Next i
xlBook.SaveAs FileName
xlBook.RunAutoMacros (xlAutoClose)         '''执行Excel关闭宏
xlBook.Close (True)                        '''''关闭Excel工作表
xlApp.Quit                                  '''''''''关闭Excel工作本
Set xlApp = Nothing
End Sub