Close Current File and Exit Excel

Cosmos75 · Apr 6th, 2002, 06:13 PM

Is there anyway, from a macro, that I can close the active workbook and exit excel??

smozgur · Apr 6th, 2002, 07:46 PM

Application.Quit

But if you have unsaved documents then you will be prompted.

To avoid it and close workbooks without saving:
'------CODE START-----
Dim wrkBook As Workbook
For Each wrkBook In Workbooks
wrkBook.Saved = True
Next
Application.Quit
'------CODE END-----

or save all workbooks

'------CODE START-----
Dim wrkBook As Workbook
For Each wrkBook In Workbooks
wrkBook.Save
Next
Application.Quit
'------CODE END-----

regards

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 6th, 2002, 06:13 PM	#1
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	Is there anyway, from a macro, that I can close the active workbook and exit excel??

Apr 6th, 2002, 07:46 PM	#2
smozgur BatCoder Join Date: Feb 2002 Location: Turkey Posts: 764	Application.Quit But if you have unsaved documents then you will be prompted. To avoid it and close workbooks without saving: '------CODE START----- Dim wrkBook As Workbook For Each wrkBook In Workbooks wrkBook.Saved = True Next Application.Quit '------CODE END----- or save all workbooks '------CODE START----- Dim wrkBook As Workbook For Each wrkBook In Workbooks wrkBook.Save Next Application.Quit '------CODE END----- regards