要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例：
关闭活动工作簿，如果工作簿有更改，提示是否保存：
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：
Sub ClostAndSaveWorkbook()
ActiveWorkbook.企需Close Savechanges:=True
End Sub
将上述月松措代码中的“True”改为“False”，则直接关闭工作簿而不保存。
关闭所有打开的工作簿，并提示是否保存：
Sub Close据级AllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel，并提示对有更改的工作簿进行保存：
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel：
Sub SaveActiveWorkAndQuit()
***.Save
Application.Quit
End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel：
Sub SaveAllAndQuit()
For Each wbk In Wo银测内诉去体完交治沿确rkbooks
***.Save
Next
Application.Quit
End Sub
退出Excel，所有的改动都不保存：
Sub QutiAndNoAlerts()
Application.DisplayAle长翻木点rts = False
Application.Quit
End Sub
关闭活动工作簿，如果工作簿有更改，提示是否保存：
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：
Sub ClostAndSaveWorkbook()
ActiveWorkbook.企需Close Savechanges:=True
End Sub
将上述月松措代码中的“True”改为“False”，则直接关闭工作簿而不保存。
关闭所有打开的工作簿，并提示是否保存：
Sub Close据级AllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel，并提示对有更改的工作簿进行保存：
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel：
Sub SaveActiveWorkAndQuit()
***.Save
Application.Quit
End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel：
Sub SaveAllAndQuit()
For Each wbk In Wo银测内诉去体完交治沿确rkbooks
***.Save
Next
Application.Quit
End Sub
退出Excel，所有的改动都不保存：
Sub QutiAndNoAlerts()
Application.DisplayAle长翻木点rts = False
Application.Quit
End Sub