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表格