您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA关闭工作簿和退出Excel

时间:2014-10-12 整理:docExcel.net

要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例:

关闭活动工作簿,如果工作簿有更改,提示是否保存:

Sub CloseWorkbook()
   ActiveWorkbook.Close
   End Sub

如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿:

Sub ClostAndSaveWorkbook()
   ActiveWorkbook.Close Savechanges:=True
   End Sub

将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。

关闭所有打开的工作簿,并提示是否保存:

Sub CloseAllWorkbooks()
   On Error Resume Next
   Workbooks.Close
   End Sub

退出Excel,并提示对有更改的工作簿进行保存:

Sub QuitExcel()
   Application.Quit
   End Sub

保存活动工作簿并退出Excel:

Sub SaveActiveWorkAndQuit()
   ActiveWorkbook.Save
   Application.Quit
   End Sub

下面的代码在退出Excel时都不会提示是否保存工作簿。

保存所有打开的工作簿并退出Excel:

Sub SaveAllAndQuit()
   For Each wbk In Workbooks
   wbk.Save
   Next
   Application.Quit
   End Sub

退出Excel,所有的改动都不保存:

Sub QutiAndNoAlerts()
   Application.DisplayAlerts = False
   Application.Quit
   End Sub

PPT动画设计案例文本关闭效果 问题:PPT动画设计案例文本关闭效果
回答:...程 1.启动PowerPoint2007,先选中上半部分,单击添加效果--退出--擦除。 2.修改擦除的属性,开始:单击时,方向:自顶部,速度:非常快。 3.然后修改下半部分属性,开始:之前,方向:自底部,速度:非常快。 4.选中中...
文件没保存怎么办 问题:文件没保存怎么办
回答: 当您辛辛苦苦地编辑或是修改了一篇文档,可是退出Office时却意外击中了“不保存”按钮,怎么办呢?还有办法找回未保存的工作吗?没问题!Office2010为您增加了这项全新的功能——恢复未保存的版本。下面,我以...
在Excel2010中设置自动保存功能 问题:在Excel2010中设置自动保存功能
回答:...行设置,默认的是10分钟。 3.单击“确定”按钮退出当前对话框,自动保存功能已完成设置并开启。 4.在工作簿编辑过程中,Excel会根据设置的间隔时间保存当前工作簿的副本。单击“文件”按钮,在弹出的下拉...
在关闭Word2007时出现异常,提示错误为appcrash 问题:在关闭Word2007时出现异常,提示错误为appcrash
回答:...作时,都非常正常,就是前几天安装了个补丁。后来发现退出Word时总是出现提示错误为appcrash。根本就无法正常关闭,然后提示为查找解决方案并关闭,直接关闭。点选更多信息,如下: 出现了一个问题,该问题导致了此程序...
Word经常遇到问题,然后退出怎么办 问题:Word经常遇到问题,然后退出怎么办
回答:问题:最近我的Word经常会遇到这样的提示:“Microsoft Office Word 遇到问题需要关闭。我们对此引起的不便表示抱歉”不知有没有什么办法解决? 解答:请检查详细的错误信息。如果在弹出错误窗口里找不到错误的详细信息...
又一家日系家电溃败 松下宣布关闭在华电视工厂 问题:又一家日系家电溃败 松下宣布关闭在华电视工厂
回答:...日消息,据日本共同社报道,松下公司今日正式宣布,将退出在中国的液晶电视机生产业务,其在中国惟一的电视工厂山东厂已于上周五停产。 今日,松下公司发布公告称,松下位于山东济南的合资公司“山东松下电子信息...
相关推荐: