【VB】MSHFlexGrid中数据导入到Excel（机房问题）

在机房收费系统中，有的窗体含有导入到Excel功能，比如收取金额查询窗体，我们如何用VB代码实现从MSHFlexGrid中导入数据到Excel呢？

我知道的有两种方法，但是第一种方法需要引用部件，很多电脑上都没有该部件，所以我用了代码方法来实现这个功能。

首先，在模块中：

    Public Sub Export(frmName As Form, FlexGridName As String)

    Dim xlApp As Object                 'Excel.Application
    Dim xlBook As Object                'Excel.Workbook
    Dim xlSheet As Object               'Excel.Worksheet

    Screen.MousePointer = vbHourglass
    
    On Error GoTo Err_Proc
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

    '向表中添加数据
    Dim intRowIndex As Integer
    Dim intColIndex As Integer
    
    With frmName.Controls(FlexGridName)  '查找控件
        '填充数据到Sheet1
        For intRowIndex = 0 To .Rows - 1
            For intColIndex = 0 To .Cols - 1
                xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
            Next intColIndex
        Next intRowIndex
    End With
    
    xlApp.Visible = True
    Screen.MousePointer = vbDefault
    Exit Sub
    
Err_Proc:
    Screen.MousePointer = vbDefault
    MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"
End Sub

然后，在导入CMD下写：

    Export Me, "MSHFlexGrid1"

到此，成功将MSHFlexGrid中数据导入到Excel中。