机房收费系统问题集锦（三）——导出为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表可以被编辑”

就是这么简单，你学会了吗？