将MSHFlexGrid控件中的数据导入到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