vb中將資料匯出到excel表格中

     下面是將msflexgrid中的資料匯出到excel的代碼：

      Dim XlApp As Excel.Application

      Dim XlBook As Excel.Workbook
      Dim XlSheet As Excel.Worksheet
      Dim i As Integer
      Dim j As Integer
      
      Set XlApp = CreateObject("Excel.Application")   '初始化
      Set XlBook = XlApp.Workbooks.Add
      Set XlSheet = XlBook.Worksheets(1)
            
      For i = 0 To MSFlexGrid1.Rows - 2               '將msflexgrid1中的資料寫入excel表格中
             For j = 0 To 4
                    XlSheet.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)
             Next j
       Next i
       XlApp.Visible = True                           '填寫完畢後顯示excel表格