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

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用脊链Application.Quit 方法：\x0d\x0a\x0d\x0a关闭活动工作簿，如果工作簿有唤困更改，提示是否保存：\x0d\x0aSub CloseWorkbook()\x0d\x0aActiveWorkbook.Close\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：\x0d\x0aSub ClostAndSaveWorkbook()\x0d\x0aActiveWorkbook.Close Savechanges:=True\x0d\x0aEnd Sub\x0d\x0a将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。\x0d\x0a关闭所有打开的工作簿，并提示是否保存：\x0d\x0aSub CloseAllWorkbooks()\x0d\x0aOn Error Resume Next\x0d\x0aWorkbooks.Close\x0d\x0aEnd Sub\x0d\x0a退出Excel，和野念并提示对有更改的工作簿进行保存：\x0d\x0aSub QuitExcel()\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a保存活动工作簿并退出Excel：\x0d\x0aSub SaveActiveWorkAndQuit()\x0d\x0aActiveWorkbook.Save\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a下面的代码在退出Excel时都不会提示是否保存工作簿。\x0d\x0a保存所有打开的工作簿并退出Excel：\x0d\x0aSub SaveAllAndQuit()\x0d\x0aFor Each wbk In Workbooks\x0d\x0awbk.Save\x0d\x0aNext\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a退出Excel，所有的改动都不保存：\x0d\x0aSub QutiAndNoAlerts()\x0d\x0aApplication.DisplayAlerts = False\x0d\x0aApplication.Quit\x0d\x0aEnd Sub

利用禁用屏幕刷新即可，即在程序开头加上一句代码：差悉Application.ScreenUpdating=False程序结尾前加上Application.ScreenUpdating=True关于此例中用到的ScreenUpdating属性的相关知识：如虚腊乎果屏幕更新功能是打开的，则该值为True。Boolean类型，可读写。说明：关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。当宏结束运行后，请记住将ScreenUpdating属性设回到True。 *** 作说明：当为True时，局茄屏幕上会显示每个单元格数值的变化情况；当为False时，屏幕上只会等运算完成后，才显示结果。

---