VBA關(guān)閉工作簿和退出Excel 代碼

要用VBA來關(guān)閉工作簿，用Workbook.Close 方法即可，而要退出Excel，則用Application.Quit 方法。下面是一些代碼示例：

關(guān)閉活動工作簿，如果工作簿有更改，提示是否保存：

Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub

如果要避免出現(xiàn)提示，可添加“SaveChanges”參數(shù)，如直接保存并關(guān)閉工作簿：

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

將上述代碼中的“True”改為“False”，則直接關(guān)閉工作簿而不保存。

關(guān)閉所有打開的工作簿，并提示是否保存：

Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub

退出Excel，并提示對有更改的工作簿進(jìn)行保存：

Sub QuitExcel()Application.QuitEnd Sub

保存活動工作簿并退出Excel：

Sub SaveActiveWorkAndQuit()ActiveWorkbook.SaveApplication.QuitEnd Sub

下面的代碼在退出Excel時(shí)都不會提示是否保存工作簿。

保存所有打開的工作簿并退出Excel：

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

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

Sub QutiAndNoalerts()Application.Displayalerts = FalseApplication.QuitEnd Sub