msflexgrid控件中的数据导出为excel表的方法有很多，我觉得它们都大同小异，总起来说就是vb先调用excel，然后再将数据导入进去。在数据导出的过程中，我的收获如下，下面是我把msflexgrid控件的数据导出到excel中的步骤。 1 首先确保 在工程中引用microsoft
msflexgrid控件中的数据导出为excel表格的方法有很多，我觉得它们都大同小异，总起来说就是vb先调用excel，然后再将数据导入进去。在数据导出的过程中，我的收获如下，下面是我把msflexgrid控件的数据导出到excel中的步骤。
1 首先确保 在工程中引用microsoft excel 14.0 object library 和 microsoft activex data objects 2.6 libray
代码部分，private sub command2_click() dim xlsapp as excel.application '定义excel程序 dim xlsbook as excel.workbook '定义工作簿 dim xlssheet as excel.worksheet '定义工作表 dim i as long dim j as long set xlsapp = createobject(excel.application) '创建应用程序 set xlsbook = xlsapp.workbooks.add set xlssheet = xlsbook.worksheets(1) '设置应用表 with xlsapp .rows(1).font.bold = true end with '把msflexgrid1的内容写入到电子表格中 for i = 0 to msflexgrid1.rows - 1 for j = 0 to msflexgrid1.cols - 1 xlssheet.cells(i + 1, j + 1) = ' & msflexgrid1.textmatrix(i, j) next j next i xlsapp.visible = true '显示电子表格 xlssheet.printout preview:=true '进入打印预览页面 xlsbook.saveas app.path & \test.xls '保存路径和文件名称 set xlsapp = nothing '释放控制权end sub
以上的代码是直接进入打印预览界面，如果想直接得到电子表格，可将 xlssheet.printout preview:=true这行代码注释掉。
我觉得vb调用excel将msflexgrid控件中的数据到excel中的步骤和是用ado对象差不多，都是先声明对象，然后在创建对象，最后在对其进行一系列的操作。
未完待续，有待其它方法的开采。