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

想要将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 = True         '使其可见
        ExcelApp.Workbooks.Add (1)       '添加一个工作薄
        ' 实例化一个工作表，并使其成为Excel 程序中的活动工作表
        Set Exsheet = ExcelApp.ActiveWorkbook.ActiveSheet
        '将mshflexgrid表格数据，导入到excel中
            For intRow = 0 To MyGrid.Rows - 1           '行循环
                For intCol = 1 To MyGrid.Cols - 1       '列循环
                    Exsheet.Cells(intRow + 1,intCol) = MyGrid.TextMatrix(intRow,intCol-1)
                Next intCol             '下一列
            Next intRow                 '下一行
         MsgBox "导出成功！",vbOKOnly + vbInformation,"提示"
    End If
    
End Sub