您的位置: 首页 > 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 遇到问题需要关闭。我们对此引起的不便表示抱歉”不知有没有什么办法解决? 解答:请检查详细的错误信息。如果在弹出错误窗口里找不到错误的详细信息...
又一家日系家电溃败 松下宣布关闭在华电视工厂 问题:又一家日系家电溃败 松下宣布关闭在华电视工厂
回答:...日消息,据日本共同社报道,松下公司今日正式宣布,将退出在中国的液晶电视机生产业务,其在中国惟一的电视工厂山东厂已于上周五停产。 今日,松下公司发布公告称,松下位于山东济南的合资公司“山东松下电子信息...
相关知识:

下面内容对您也许有用

      话题:怎样用excel vba 打开和关闭多个工作簿?谢谢
      答:用VBA 编写,1)打开指定工作簿 dim wb as workbook set wb="文件路径及文件名"workbooks.open filename:=wb 2)关闭所有工作簿并保存 workbooks.close
      话题:Excel中,如何用vba实现另存为工作表?(去掉公式)知道
      问:我用公式和vba窗口输入填完了工作表,现在我想实现另一个功能,点击保存按钮,将填
      答:楼主你好,我给你想了个有效的办法 首先全选,然后选择性粘贴,只粘贴数值,这样就能在不改变任何东西的情况下去掉公式,只留下数值了,楼主快去试一试吧 Cells.Select 在您回答的Excel中,如何用vba EXCELVBA筛选另存到另一个工作
      话题:求excel高手帮我写一个 打开另一个工作簿,打开后再关闭,不
      问:工作时,我把C:\Users\DELL\Desktop\薪资.xlsx和C:\Users\DELL\Desktop\考勤
      答:Sub 打开另一个工作簿()D="C:\Users\DELL\Desktop\考勤.xlsx"On Error GoTo tt Workbooks.Open Filename:=D '数据处理 ActiveWorkbook.Close False tt:MsgBox Excel如何用VBA代码删除工作表内 如何用vba代码 判断excel工作表
      话题:Excel工作簿关闭时,我想用VBA中的Auto_close()函数,同时使用
      问:请问您真的要退出吗?是的,否。是的话退出excel工作簿,否的话返回活动页面。
      答:Private Sub Auto_close()Application.DisplayAlerts=False If MsgBox("请问您真的要退出吗?vbYesNo,"Microsoft Excel")=vbYes Then ActiveWorkbook.Close 如何用宏vba实现,关闭excel表格 Excel VBA msgbox 为什么不能
      话题:EXCEL中如何用VBA删除多个工作表?知道
      问:例如:工作簿中有名为tt1、tt2和sht1、sht2、sht3、sht4、sht5、sht6、sht7.等
      答:sub ds()for i=worksheets.count to 1 step-1 if worksheets(i).name like"sh*"then '(这里的sh区分大小写)worksheets(i).delete end if next end sub excel vba基础使用方法 EXCEL中 如何用 VBA删除多个工作
      话题:EXCEL VBA新建工作表?知道
      问:我建立了一个EXCEL银行进帐单打印表格,现需要保存进帐单的数据而自动新建工作表
      答:当你数据保存时判断工作表是否存在,如果存在的话将内容保存进去,如果不存在的话新建一个工作表并将内容保存进去。你也可以考虑是否采用一个单位用一个工作簿
      话题:excel vba 工作簿事件
      问:一个由年月日加三位数字的号码,例如20110825-001 每次打开工作簿,先查找工作表
      答:有这么难吗,隔时间太长了,你直接将样板发我一下,我给你做,懒得打文字,如果不能发,你Q我,6 4 4 6 8 9 7 3 6 EXCEL VBA工作簿事件 EXCEL vba中什么时候用工作表
      话题:Excel工作簿用VBA怎么隐藏工作表?知道
      答:有三种方法:1、直接在Sheet2标签上点右键,弹出的菜单上面有个“隐藏”,点后就可以隐藏它了,想取消隐藏直接在其它工作表标签上点右键—取消,选想取消隐藏的 用VBA或宏,显示和隐藏EXCEL中的 EXCEL隐藏的工作表怎么做超级
      话题:EXCEL VBA工作簿事件
      问:一个由年月日加三位数字的号码,例如20110825-001 每次打开工作簿,先查找工作表
      答:把下面子程序中的代码加入到workbook-open()事件中:Sub aaa()Dim t,d,n,dh,c t=0 d=Replace(Date,"-","")n=ThisWorkbook.Sheets("数据库").Range("a65536"). excel vba 工作簿事件 VBA 怎样让工作表事件优先,
      话题:如何用excel的VBA来修改工作表名称
      问:比如,有一个工作簿,里面有三张工作表,名称分别是2013-9-12【强度】和2013-9-
      答:Sub test()For i=1 To ThisWorkbook.Worksheets.Count Sheets(i).Name=Left(Sheets(i).Name,InStr(1,Sheets(i).Name,"【")-1)Next End Sub 这个通过验证,可以 Excel VBA 如何始终找到某个工作 EXCEL VBA查询工作表名称
最新评论