将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