如何将MSFlexGrid控件中的数据导成Excel

在项目中多次运用到将msflexgrid控件中的记录导成Excel,在一番百度后码实现了这个功能,下面简单介绍一下。

第一步:在工程中引用Microsoft Excel类型库

        从"工程"菜单中选择"引用"栏;选择【Microsoft Excel 15.0 Object Library】,然后选择"确定"。表示在工程中要引用EXCEL类型库。 

 

 PS:可能在引用中找不到可以通过一下步骤:工程——引用——浏览——找到office的安装位置——将文件类型修改为可执行文件——选中“EXCEL.EXE”

 

第二步:在模块中添加代码

 
  1. Public Sub DataToExcel(MSFlexGrid1 As MSFlexGrid) '导出至Excel
  2.  
  3. Dim xlApp As Excel.Application '定义excel类
  4. Dim xlBook As Excel.Workbook '定义工作薄类
  5. Dim xlsheet As Excel.Worksheet '定义工作表类
  6.  
  7. Dim i As Integer '定义控件的行数
  8. Dim j As Integer '定义控件的列数
  9.  
  10. Set xlApp = CreateObject("Excel.application") '创建excel应用类
  11. xlApp.Visible = True '设置excel对象可见
  12. Set xlBook = xlApp.Workbooks.Add '打开excel工作薄文件
  13. Set xlsheet = xlBook.Worksheets("sheet1") '打开excel工作表
  14.  
  15. '将数据导入excel表中
  16. '行循环
  17. For i = 0 To MSFlexGrid1.Rows - 1
  18. '列循环
  19. For j = 0 To MSFlexGrid1.Cols - 1
  20. MSFlexGrid1.Row = i
  21. MSFlexGrid1.Col = j
  22. '保存到Excel
  23. xlBook.Worksheets("sheet1").Cells(i + 1, j + 1) = MSFlexGrid1.Text
  24. Next j
  25. Next i
  26.  
  27. xlApp.Visible = True
  28. MSFlexGrid1.Redraw = True
  29.  
  30. End Sub

第三步:在命令按钮单击事件下编写如下代码

 
  1. Private Sub Command2_Click()
  2.  
  3. DataToExcel MSFlexGrid1
  4.  
  5. End Sub

总结:

       MSFlexGrid控件的运用还有很多,需要我们对其进行深入的研究。遇见问题解决问题很重要,但是在这个过程中的总结更加重要。编写代码时尽量用简单的代码实现功能。

 

评论 31
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值