修改为下面这种即可:
先把对应的Excel或者word的引用去掉
Dim ExcelApp As Object
Dim Book As Object
Dim ws As Object
Set ExcelApp = CreateObject("Excel.Application")
Set ws = ExcelApp.Workbooks.Add
ws.SaveAs ("c:\file2.xls")
ws.Close
ExcelApp.Quit
Set ExcelApp = Nothing
Set Book = Nothing
Set ws = Nothing