Closing via ThisWorkbook vs Application.Quit

[AndyEd]

I am using the following code to Close the Workbook within which the code is being used.

ThisWorkbook.Close SaveChanges:=True

If another Workbook is open it closes this Workbook and everything appears normal, yet if this is the ONLY Workbook open, it leaves excel live.

Application.Quit

obviously closes ALL open excel workbooks.

How do you specify fully closing excel if only the one Workbook is open?

 

[Joe4]

If another Workbook is open it closes this Workbook and everything appears normal, yet if this is the ONLY Workbook open, it leaves excel live.

That is because they are not the same thing! You can have the Excel application open with no workbook open.
So just closing a workbook will NEVER completely close the Excel application, even if it is the only workbook open.

So you would use your first code if you just want to close a single workbook without closing Excel.
You would use your second one if you want to shut down Excel completely (and whatever workbooks are currently open in that session of Excel).

So the second code will close all workbooks and shut-down Excel.
The first code will just close a single workbook.

 

[AndyEd]

So is there a way to check to see if other workbooks are open, and if so, leave excel open.

If there are no other workbooks open, shut down excel.

?

 

[Joe4]

So is there a way to check to see if other workbooks are open, and if so, leave excel open.

If there are no other workbooks open, shut down excel.

?

You could check/count the number of open workbooks first, and if it is 1, quit the application, otherwise just close the workbook, i.e.

Sub MyCloseQuit()
    If Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close SaveChanges:=True
    End If
End Sub

 

[AndyEd]

Thank you.

 

[Joe4]

You are welcome.
Glad I was able to help!