How to Close Excel file from VBScript without being prompted?

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

Maharani

objWorkbook.Close False and/or set objExcel.DisplyAlerts=False before closing the workbook. – Goatfish

@TIm Williams. Thanks! This combination works. Please reply as an Answer and I will select it. Thanks again. – Maharani

Answer 1

This should do it:

objExcel.DisplayAlerts = False

objWorkbook.Close False 

Goatfish

Answer 2

Have you tried:

    objWorkbook.Close False

Rusticus

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 

Evangelin

Answer 4

Why not just this?

On Error Resume Next
GetObject(, "Excel.Application").Workbooks("file_name.xlsx").Close False
On Error Goto 0

Prevalent

Answer 5

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.

Tomekatomes

Why are you writing an answer using SAS when the OP is clearly asking for VBScript? This doesn't help answer the question. Besides which, there is already an accepted answer, so adding this in provides little more gain. – Shipman