如何从VBScriptclosuresExcel文件而不被提示?

我有一个VB脚本,打开一个Excel文件,并运行一个macros。 我想closures这个excel文件(不保存任何更改),而不会提示保存。 我已将“已保存”属性设置为true。 但是我仍然提示保存窗口。 我读的地方,我必须禁用macros。 不知道如何? 我想closuresexcel文件而不保存和不提示。

Dim objExcel, objWorkbook Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("c:\aaa\Test.xls") objExcel.Visible = True objExcel.Run "Extract_PLStatements" objworkbook.Saved = True objWorkbook.Close objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing WScript.Quit 

这应该做到这一点:

 objExcel.DisplayAlerts = False objWorkbook.Close False 

你有没有尝试过:

  objWorkbook.Close False 

尝试这个。 这将closures所有的Excel实例而不要求保存。 但是,您将丢失任何未保存的数据。

 Do While True Dim objExcel On Error Resume Next Set objExcel = GetObject(,"Excel.Application") If Err.Number <> 0 Then Exit Do End If On Error GoTo 0 objExcel.DisplayAlerts = False objExcel.Quit Set objExcel = nothing Loop 

试试这个,更容易!

 FILENAME CMDS DDE 'Excel|system'; DATA _NULL_; FILE CMDS; PUT '[Workbook.Activate("FILENAME.XLS")]'; PUT "[SAVE()]"; PUT "[CLOSE("'"'"C:\FILENAME.XLS"'"'")]"; RUN; 

对不起,这是使用SAS。