VB将MSHFlexGrid中数据导出到Excel中

最新推荐文章于 2018-08-12 20:49:16 发布

guolimin1992

最新推荐文章于 2018-08-12 20:49:16 发布

阅读量1.8k

点赞数

分类专栏： VB程序

本文链接：https://blog.csdn.net/guolimin1992/article/details/12117673

版权

本文介绍如何在VB中将MSHFlexGrid组件中的数据导出到Excel文件。通过循环遍历MSHFlexGrid的单元格，将数据逐行写入Excel表格，实现从数据网格到电子表格的转换。当MSHFlexGrid无数据时，程序会给出相应提示。

摘要由CSDN通过智能技术生成

在VB程序中，经查找筛选显示在MSHFlexGrid中的数据，导出到Excel中。分析一下，其实特别简单，MSHFlexGrid中数据是从数据库中的表中调出来的，然后显示在MSHFlexGrid中，然后再将MSHFlexGrid中数据的数据放到Excel中，说来说去，都是表到表的数据操作工作。

所以思路就有了：1.对相关的EXCEL对象进行声明，2,.将MSHFlexGrid中数据导入到Excel表中（定义循环变量，行列依次循环写入到表中，）3.最后给出一个提示（当MSHFlexGrid中没有数据的时候）处理完成。

代码如下：

 '将查询到的上机记录导入到excel表格中
                If txtCardno.Text <> "" Then
                
                        Dim tmpExcel As Excel.Application
                        Dim tmpSheet As Excel.Worksheet      '声明一个EXCEL工作簿
                        Dim inthang As Integer   '行循环变量
                        Dim intlie As Integer    '列循环变量