機房收費系統問題集錦（三）——導出爲Excel

好了，這篇文章完全是承接着上一篇文章而寫的，主題是“把表中信息導出爲Excel”

界面設計請見：http://blog.csdn.net/lxf68/article/details/38821173

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

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表可以被編輯”

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