如何将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控件的运用还有很多，需要我们对其进行深入的研究。遇见问题解决问题很重要，但是在这个过程中的总结更加重要。编写代码时尽量用简单的代码实现功能。