好了，這篇文章完全是承接著上一篇文章而寫的，主題是“把表中資訊匯出為Excel”

下面我來說一下程式碼部分的編寫：

Private Sub cmdDaochu_Click()
     Dim xlsApp  As Excel.Application
     Dim xlsBook  As Excel.Workbook
     Dim xlsSheet  As Excel.Worksheet
          
     Set xlsApp = New Excel.Application
     Set xlsBook = xlsApp.Workbooks.Add
     Set xlsSheet = xlsBook.Worksheets(1)
  
     Dim i As Integer
     Dim j As Integer
     For i = 0 To MSHFlexGrid1.Rows - 1
         For j = 0 To MSHFlexGrid1.Cols - 1
             xlsSheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j)
         Next
     Next
     xlsApp.Visible = True
     Set xlsApp = Nothing
End Sub
 

其實不光是程式碼簡單，主題思想也是非常簡單的“建立表格”→“把窗體中的MSHFlexGrid1中的資料一一匯入到新建的Excel表中”→“讓Excel表可以被編輯”

就是這麼簡單，你學會了嗎？