1.通用导出Excel功能。

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

 3.具体代码如下：

 

'将下列代码保存到一模块文件中，调用方法：Export fgrid1,cd1Public Sub Export(flexgridname As MSHFlexGrid, CD1 As CommonDialog)Dim xlApp As Object 'Excel.ApplicationDim xlBook As Object  'Excel.WorkbookDim 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 SubErr_Proc:    Screen.MousePointer = vbDefault    '报错以后用老的导出函数    savef flexgridname, CD1'    'MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"    End Sub