将MSHFlexGrid控件中的数据导入到Excel中

最新推荐文章于 2022-06-18 13:06:37 发布

小_L

最新推荐文章于 2022-06-18 13:06:37 发布

阅读量1.1k

点赞数

分类专栏： --------【VB语言】

本文链接：https://blog.csdn.net/u010011371/article/details/11961507

版权

本文介绍如何将MSHFlexGrid控件中的数据顺利导入到Excel文件中，包括在工程引用中添加相关组件及具体的数据迁移步骤。

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

想要将msgFlexgrid中数据导入到excel中，首先我们我们要做一下准备工作。

1、在工程引用中找到

2、接下来就是如何创建Excel表和将GSHFlexGrid中的数据导入到Excel中了

Private Sub CmdDerive_Click()
    Dim ExcelApp As excel.Application
    Dim Exsheet As excel.Worksheet      '声明一个Excel
    Dim intRow As Integer   '外循环变量
    Dim intCol As Integer   '内循环变量

    If MyGrid.TextMatrix(1, 1) = "" Then
        MsgBox "没有数据可以导出", vbInformation, "提示"
        Exit Sub
    Else
        Set ExcelApp = New excel.Application        '实例化excel，使其可见
        ExcelApp.Application.Visible = Tr