Killing open applications using VBA

[zippy483]

Hi all



I am using the following code on closing a form in access to kill excell

Set oWS = Nothing
If Not oWB Is Nothing Then oWB.Close
Set oWB = Nothing
oExcel.Quit
Set oExcel = Nothing

all is fine and dandy and it does as i want it to do with the exception that on exiting I get a message box asking if I would like to save the changes to the excel file that is about to close.

I haven't made any changes and wouldn't be doing so, so the question is how do I inhibit the save changes message box so that I never see it, using access vba, a modification to the above code would be nice

Many thanks for your help

Zippy483

[maximus]

I have made the following assumptions in my code:

• The excel file is located oin your hard drive.
• The excel file is open.

I have use a command button on its onClick event i have used the following code:

Private Sub Command8_Click()
Dim appExcel As Object
Set appExcel = GetObject("C:\FILE1.xls")

appExcel.Application.DisplayAlerts = False
'appExcel.Application.Save
appExcel.Application.DisplayAlerts = True
appExcel.Application.Quit

Set appExcel = Nothing

End Sub


This code is an extract of a larger code that I use to open and write on an existing excel file and then save it without prompt.
If this solves your problem please mark this thread to be solved.

[maximus]

I am jus curious have been able to solve your problem. If yes an in a different way please mark this thread solved and post your solution.

[zippy483]

Hi all and thanks for the help the code below has solved my problem merely by the addition of one line of code

Cleanup: 'Closes Excel Worksheets and Workbooks
oExcel.Application.DisplayAlerts = False
Set oWS = Nothing
If Not oWB Is Nothing Then oWB.Close
Set oWB = Nothing
oExcel.Quit
Set oExcel = Nothing

Many thanks once again

Zippy483

[maximus]

I am glad could help you.