怎么将MSFlexGrid中的多条数据全部导出到Excel中

如何将MSFlexGrid中的多条数据全部导出到Excel中
如何将MSFlexGrid中的多条数据全部导出到Excel中

[解决办法]

VB code

Public Sub Export(formname As Form, flexgridname As String)    Dim xlApp As Object 'Excel.Application    Dim xlBook As Object  'Excel.Workbook    Dim xlSheet As Object  'Excel.Worksheet    Screen.MousePointer = vbHourglass    On Error GoTo Err_Proc    Set xlApp = CreateObject("Excel.Application")    Set xlBook = xlApp.Workbooks.Add    Set xlSheet = xlBook.Worksheets(1)    'Begin to fill data to sheet    Dim i As Long    Dim j As Integer    With formname.Controls(flexgridname)        For i = 0 To .rows - 1            For j = 0 To .Cols - 1                xlSheet.Cells(i + 1, j + 1).Value = "'" & .TextMatrix(i, j)            Next j        Next i    End With    xlApp.Visible = True    Screen.MousePointer = vbDefault    Exit SubErr_Proc:    Screen.MousePointer = vbDefault    MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"    End Sub'调用方法：call export(me,"MSFlexGrid")
[解决办法]
支持楼上
循环读取再写入worksheet对象
[解决办法]
注意要保存一下
VB code
    If xlApp.ActiveWorkbook.Saved = False Then        xlApp.ActiveWorkbook.SaveAs App.Path & "\mmm0.xls"    End If    xlApp.Quit    Set xlApp= Nothing