Private mo_App As New Excel.Application Private mo_Book As New Excel.Workbook Private mo_Sheet As New Excel.WorksheetWith mo_App .Workbooks.Open App.Path & "\" & gcsTemplatesPath & "\" & csTemp .Visible = mf_VisualReport End With mo_App.ActiveWorkbook.SaveAs ms_Filename mo_App.Quit这样打开试试
Private mo_Book As New Excel.Workbook
Private mo_Sheet As New Excel.WorksheetWith mo_App
.Workbooks.Open App.Path & "\" & gcsTemplatesPath & "\" & csTemp
.Visible = mf_VisualReport
End With
mo_App.ActiveWorkbook.SaveAs ms_Filename
mo_App.Quit这样打开试试