VB将MSHFlexGrid数据导出到Excel文件通用功能

 1.通用导出Excel功能。

 2.将 MSHFlexGrid数据导出到Excel文件通用功能。

 3.具体代码如下：

 

'将下列代码保存到一模块文件中，调用方法：Export fgrid1,cd1



Public Sub Export(flexgridname As MSHFlexGrid, CD1 As CommonDialog)

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)



    'Begin to fill data to sheet

    Dim i As Long

    Dim j As Integer

'    With formname.Controls("flexgridname")

        For i = 0 To flexgridname.rows - 1

            For j = 0 To flexgridname.Cols - 1

                xlSheet.Cells(i + 1, j + 1).Value = "'" & flexgridname.TextMatrix(i, j)

            Next j

        Next i

'     End With

     xlApp.Visible = True

     Screen.MousePointer = vbDefault

     Exit Sub

Err_Proc:

    Screen.MousePointer = vbDefault

    '报错以后用老的导出函数

    savef flexgridname, CD1

'    'MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"

    

End Sub