将MSHFlexGrid控件表格的数据导入到Excel

  机房收费系统中好几个地方需要将MSHFlexGrid控件表格的数据导入到Excel，这是在学生信息管理系统中没有的功能，是一个新的学习点。一开始参考网上的东西做了一个，但是导出的速度很慢。后来又发现了这个方法 很不错。

Private Sub cmdExcel_Click()
    '将MSHFLEXGRID表格中的数据导入到Excel电子表格中
      
    Dim TempExcel As Excel.Application '声明一个EXCEL应用程序对象
    Dim TempSheet As Excel.Worksheet   '声明一个EXCEL工作簿
    Dim intI As Integer                '循环变量
    Dim intJ As Integer                '循环变量
      
    '先判断MYFLEXGRID1表中有没有数据
    If myflexgrid.Rows > 1 Then
          
        '实例化Excel应用程序，并使其可见
        Set TempExcel = New Excel.Application
        TempExcel.Application.Visible = True
      
        '在Excel应用程序中中增加一个工作簿
        TempExcel.Workbooks.Add (1)
          
        '实例化一个表单，并使其成为Excel程序中活动工作簿下的活动表单
        Set TempSheet = TempExcel.ActiveWorkbook.ActiveSheet
          
        '将MSHFLEXGRID表格中的数据，导入到活动表单中
        For intI = 0 To myflexgrid.Rows - 1
              
            For intJ = 0 To myflexgrid.Cols - 1
                  
                TempSheet.Cells(intI + 1, intJ + 1) = myflexgrid.TextMatrix(intI, intJ)
                  
            Next intJ
              
        Next intI
      
    Else
        '表中没有数据
        MsgBox "没有可导出的数据！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
          
    End If
    
End Sub

这段代码完全可以实现将MSHFlexGrid控件表格的数据导入Excel。