excel开vba就闪退

1、可以尝试重新安装excel；

2、检查电脑系统是否有更新，如果有更新，就更新一下；

3、检查excel是否有更新，如果有更新，就更新一下；

4、如果以上方法无效，可以尝试把excel重置一下，重置步骤如下：

（1）关闭excel；

（2）在开始菜单里找到“运行”，输入“excel /safe”，回车；

（3）在d出的窗口中选择“仅加载安全模板”；

（4）点击“启动”，excel就会重新启动；

（5）重新启动excel后，尝试打开vba，看看是否能正常使用。

5、如果以上都无效，可以把excel卸载重新安装一下，重新安装后尝试打开vba，看看是否能正常使用。

要用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

---