如何在没有提示的情况下从 VBScript 关闭 Excel 文件？

Question

I have a VB Script that opens an Excel file and runs a macro. I am trying to close this excel file(without saving any changes) without being prompted to save. I have set the 'Saved' property to true. But I am still prompted with the Save window. I read somewhere that I have to disable the macro. Not sure how? I would like to close the excel file without saving and without prompting.

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

Answer 1

This should do it:

objExcel.DisplayAlerts = False

objWorkbook.Close False 

Answer 2

你有没有尝试过：

    objWorkbook.Close False

Answer 3

Try this. This closes all the excel instances without asking to save. You will however loose any unsaved data.

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 

Answer 4

Try this one, much easier!

FILENAME CMDS DDE 'Excel|system'; 

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

Sorry this is using SAS.