VBA关闭工作簿和退出Excel 代码

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。