VBA怎样关闭工作簿和退出Excel

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法：

关闭活动工作簿，如果工作簿有更改，提示是否保存：

Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub

如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：

Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=TrueEnd Sub

将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。

关闭所有打开的工作簿，并提示是否保存：

Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub

退出Excel，并提示对有更改的工作簿进行保存：

Sub QuitExcel()Application.QuitEnd Sub

保存活动工作簿并退出Excel:

Sub SaveActiveWorkAndQuit()ActiveWorkbook.SaveApplication.QuitEnd Sub

下面的代码在退出Excel时都不会提示是否保存工作簿。

保存所有打开的工作簿并退出Excel:

Sub SaveAllAndQuit()For Each wbk In Workbookswbk.SaveNextApplication.QuitEnd Sub

退出Excel，所有的改动都不保存：

Sub QutiAndNoAlerts()Application.DisplayAlerts = FalseApplication.QuitEnd Sub