机房收费系统问题集锦（三）——导出为Excel

最新推荐文章于 2022-03-29 21:17:05 发布

李学粉

最新推荐文章于 2022-03-29 21:17:05 发布

阅读量986

点赞数

CC 4.0 BY-SA版权

分类专栏： VB与数据库机房收费系统文章标签：导出为Excel excel 数据

本文链接：https://blog.youkuaiyun.com/lxf68/article/details/38822059

VB与数据库同时被 2 个专栏收录

11 篇文章

订阅专栏

机房收费系统

9 篇文章

订阅专栏

本文介绍了一种使用VBA将数据从MSHFlexGrid1控件导出到Excel的方法。通过创建新的Excel工作簿并逐行填充数据，实现了数据的无缝迁移。最后使Excel可见以便用户进行进一步编辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

好了，这篇文章完全是承接着上一篇文章而写的，主题是“把表中信息导出为Excel”

界面设计请见：http://blog.youkuaiyun.com/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表可以被编辑”

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