机房收费系统---将mshflexgrid控件的记录导出到excel
2012-11-20 17:02
309 查看
如何将mshflexgrid控件的记录导出到excel呢?这个问题看似不简单,其实挺简单的。一看到excel,就会想起陈伟老师的vb视频,其中的vb与office 41-43集中讲到了这点---使用office对象进行数据交换。使用office对象的方法如图所示:
所以具体的解决方法:
第一步是先引用excel对象,因为我用的是office2010,所以引用对象为micro excel 14.0 object library .
第二步是创建Application对象,如:Dim xlsApp As Excel.Application Set xlsApp = CreateObject("Excel.Application")
第三步是使用Application及其子对象,这一步是最重要的,我们要输出数据的具体操作就在这里操作。比如:要将mshflexgrid中的记录对应的导出到excel中。
第四步则是关闭Application 对象。如:Set xlsApp = Nothing ,这一步是将excel对象从内存中卸载。
下面显示我的代码:
Dim i As Integer, j As Integer
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
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 j
Next i
xlsApp.Visible = True
Set xlsApp = Nothing
代码中标记处的地方需要注意一点:vb中的所有集合对象是以1为基底的,而mshflexgrid控件是以0为基底的。
所以具体的解决方法:
第一步是先引用excel对象,因为我用的是office2010,所以引用对象为micro excel 14.0 object library .
第二步是创建Application对象,如:Dim xlsApp As Excel.Application Set xlsApp = CreateObject("Excel.Application")
第三步是使用Application及其子对象,这一步是最重要的,我们要输出数据的具体操作就在这里操作。比如:要将mshflexgrid中的记录对应的导出到excel中。
第四步则是关闭Application 对象。如:Set xlsApp = Nothing ,这一步是将excel对象从内存中卸载。
下面显示我的代码:
Dim i As Integer, j As Integer
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
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 j
Next i
xlsApp.Visible = True
Set xlsApp = Nothing
代码中标记处的地方需要注意一点:vb中的所有集合对象是以1为基底的,而mshflexgrid控件是以0为基底的。
相关文章推荐
- 机房收费系统——将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel
- 机房收费系统——在VB中将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统之导出Excel
- 【机房收费系统】从MSHflexgrid控件导入到Excel
- 机房收费系统(1)——导出为Excel文本
- 机房收费系统总结之6——DataGridView导出为Excel
- 机房收费系统之 导出excel
- 机房收费系统之导出为Excel
- 机房收费系统之九(导出Excel)
- 机房收费系统(二)-导出为excel
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- 机房收费系统~导出Excel
- 第一次机房收费系统—导出Excel
- 【机房收费系统C#版】——导出Excel
- 机房收费系统颗粒大归仓之----DTPicker控件与导出数据为Excel
- 机房收费系统————导出到Excel
- 第一次机房收费系统之导出到Excel
- 机房收费系统——窗体与Excel导出
- 机房收费系统—导出excel