wincc v7.3 做报表，MSFlexGrid控件导出到Excel，一闪就没了，也没生成Excel文件

Dim m,i,j,n
Dim objExcelApp,objExcelBook,objExcelSheet

'打开Excel模板
Set objExcelApp = CreateObject("Excel.Application")
 objExcelApp.Visible = True
 objExcelApp.Workbooks.Open "D:\report1\report.xls"
 objExcelApp.Worksheets("sheet1").Activate
'打开Excel模板
Dim olist
Set olist=ScreenItems("view1")

m=olist.Cols 
i=olist.Rows 

For j = 1 To m
 For n = 1 To i 
  objExcelApp.Worksheets("Sheet1").cells(n,j).value= olist.TextMatrix (n-1,j-1) 
 Next
Next
  
Dim patch,filename
 filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Minute(Now))&CStr(Second(Now))
 patch= "D:\report1\report\"&filename&".xls" 
 objExcelApp.ActiveWorkbook.SaveAs patch
' objExcelApp.Workbooks.Close
' objExcelApp.Quit
 Set objExcelApp= Nothing
' MsgBox "成功生成数据文件!"
 item.Enabled = True

End Sub