VB中MSFlexgrid输出到excel

Sub ExportToExcel(ByRef objGrid As MSFlexGrid, ByVal strFileName As String)
Dim objApp As Object 'EXCEL app对象
Dim objWorkbook As Object 'EXCEL 工作簿对象
Dim objworksheet As Object 'EXCEL 工作表对象


Set objApp = CreateObject("Excel.Application") '创建excel应用
objApp.Visible = False '不显示excel
objApp.ScreenUpdating = False '禁止屏幕刷新
Set objWorkbook = objApp.Workbooks.Add(App.Path & "\" & "成品检验报告") '根据模板文件新建一个工作簿
Set objworksheet = objWorkbook.Worksheets("成品检验报告") '设定当前工作表为‘成品检验报告’

'填写内容
With objworksheet
.Cells(4, "D") = objGrid.TextMatrix(1, 2) '检验日期
.Cells(4, "I") = objGrid.TextMatrix(1, 7) '顾客编号
.Cells(4, "O") = objGrid.TextMatrix(1, 4) '报告编号
.Cells(5, "D") = objGrid.TextMatrix(2, 2) '品名
.Cells(6, "C") = objGrid.TextMatrix(3, 2) '产品型号
.Cells(7, "C") = objGrid.TextMatrix(4, 2) '送检数量
.Cells(8, "C") = objGrid.TextMatrix(5, 2) '金属材质
.Cells(9, "C") = objGrid.TextMatrix(6, 2) '弹簧材质
.Cells(10, "C") = objGrid.TextMatrix(7, 2) '橡胶材质

.Cells(6, "F") = objGrid.TextMatrix(3, 4) '订单号
.Cells(7, "F") = objGrid.TextMatrix(4, 4) '抽样数
.Cells(8, "F") = objGrid.TextMatrix(5, 4) '动环材质
.Cells(9, "F") = objGrid.TextMatrix(6, 4) '静环材质
.Cells(10, "F") = objGrid.TextMatrix(7, 4) '橡胶硬度
.Cells(6, "I") = objGrid.TextMatrix(2, 4) '抽样水准

End With

objApp.Application.DisplayAlerts = False '不显示对话框
objWorkbook.SaveAs strFileName '保存到指定文件
objApp.Application.DisplayAlerts = True '显示对话框
objApp.Visible = True '显示excel主窗体，如果为false的话，打开其他excel文档时将无法看到
objWorkbook.Close '关闭工作簿
objApp.ScreenUpdating = True '启用屏幕刷新
objApp.Quit '关闭Excel

'以下为销毁对象
Set objRange = Nothing
Set objworksheet = Nothing
Set objWorkbook = Nothing
Set objApp = Nothing
End Sub