如何将MsFlexGrad控件中的数据，快速写入EXCEL中去？

Question

Dim XlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error GoTo err
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = False
Set xlBook = XlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "i"
DoEvents
For i = 0 To msh_cx.Rows - 1
    msh_cx.Row = i
    For j = 0 To msh_cx.Cols - 1
        msh_cx.Col = j
        If IsNull(msh_cx.Text) = False Then
            DoEvents
            xlSheet.Cells(i + 3, j + 1) = msh_cx.Text
            xlSheet.Columns.EntireColumn.AutoFit
        End If
    Next j
Next i

Answer 1

Set appexcel = CreateObject("excel.application")       If appexcel.Workbooks.Count = 0 Then
          appexcel.Workbooks.Add
       End If       Set wsbook = appexcel.ActiveWorkbook
       If wsbook.Sheets.Count = 0 Then
          wsbook.Sheets.Add
       End If
       
       Set wsheet = wsbook.Sheets(1)   
       wsheet.Cells(2, 1).Value = "----¸ù¾ÝÖмÌ×éÃûͳ¼Æ"
        
       wsheet.Cells(1, 3).Value = "        Ô¤¸¶·Ñºô½Ð¼Ç¼  "
       wsheet.Columns.ColumnWidth = 18.5
       
         If MSFlexGrid1.Rows > 0 ThenFor row = 0 To MSFlexGrid1.Rows - 1
             For col = 0 To MSFlexGrid1.Cols - 1
                 wsheet.Cells(row + 4, col + 1).Value = MSFlexGrid1.TextMatrix(row, col)
             Next col
            Next row
            wsbook.SaveAs ComDlgOpen.FileName
            wsbook.Close
             Set appexcel = Nothing
             MsgBox "ok!"
            Exit Sub
         End If

Answer 2

TO:UP
除了做循环以外有没有什么别的好办法？？？
我想找一个MSFLEXGRID与EXCEL间的一个专用接口！？？