[Excel]完整诠释“一键关闭所有工作簿”的方法

2019-11-06 23:10:00 3点赞 7收藏 0评论

[Excel]完整诠释“一键关闭所有工作簿”的方法

[Excel]完整诠释“一键关闭所有工作簿”的方法


如果你每天和Excel打交道,很有可能你会同时打开多个Excel文档进行跨表操作。可到了一天结束,你想要关机回家前,那么多Excel文档得一个个保存一个个关闭。有没有感到一丝丝繁琐,是的,本期火箭君来和大家介绍几种能够快速关闭并保存所有Excel文档的方法。

01

Shift + 关闭窗口按钮

想要关闭所有工作簿最快的方法就是:按住Shift键再按关闭窗口按钮

[Excel]完整诠释“一键关闭所有工作簿”的方法

如果所有工作簿已经被保存过了,那么它们会全部被就此被关闭。

如果其中有任何工作簿没有被保存,那么Excel会提示你去保存工作簿。

[Excel]完整诠释“一键关闭所有工作簿”的方法

其中的弹出窗口会包含“全部保存”这个选项。你可以选择点击此按钮来保存所有未被保存的工作簿。

02

添加一个“全部关闭”按钮

我们也可以在快速访问工具栏中添加“全部关闭”这个快捷按钮。它的具体作用和SHIFT+关闭窗口快捷键组合相同。

[Excel]完整诠释“一键关闭所有工作簿”的方法

这样操作的另一个好处是,快速访问工具栏还可以使用快捷键。比如在火箭君的设置中,只要按下Alt+08就能直接实现全部关闭这个命令。

[Excel]完整诠释“一键关闭所有工作簿”的方法

至于说,在哪里能找到“全部关闭”命令,你可以参考下图:

[Excel]完整诠释“一键关闭所有工作簿”的方法

03

使用Macro

对于Macro的强大,这边介绍三套Macro来对应三种不同的使用需要:

>>>>

关闭所有工作簿但不保存任何工作簿

如果我们不想保存任何打开的文档,那么你可以使用这样的Macro.

Sub Close_All_Files_No_Save()
'Close all open workbooks and don't save

Dim wb As Workbook

  'Loop through each workbook
  For Each wb In Application.Workbooks
    
    'Prevent the workbook that contains the
    'code from being closed
    If wb.Name <> ThisWorkbook.Name Then
      
      'Close the workbook and don't save changes
      wb.Close SaveChanges:=False
    
    End If
  Next wb

End Sub

>>>>

除了未曾保存过的工作簿,关闭并保存所有其他工作簿

如果工作簿是在本次打开中新建的,那么这样的工作簿一般被程序命名为“工作簿x”。

[Excel]完整诠释“一键关闭所有工作簿”的方法

要是除了这些工作簿,你想要关闭并保存所有其他工作簿,则可以用这样的macro:

ub Save_and_Close_All_Files_Except_ScratchPads()
'Close all open workbooks except new unsaved files

Dim wb As Workbook

  'Loop through each workbook
  For Each wb In Application.Workbooks
    
    'Prevent the workbook that contains the
    'code from being closed
    If wb.Name <> ThisWorkbook.Name Then
      
      'Check if the file names has an extension
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        'Do not save changes if it's a scratch pad.
        wb.Close SaveChanges:=False
      End If
    
    End If
  Next wb

End Sub

>>>>

关闭并保存所有工作簿,并给未曾保存过的工作簿自动命名

如果你想要关闭并保存所有工作簿,并且还要给那些未曾保存过的工作簿自动命名,那你可以使用以下的macro:

Sub Save_and_Close_All_Files()
'Close all open workbooks except new unsaved files

Dim wb As Workbook
Dim sPath As String

  'The path where the new unsaved files will be saved.
  'Change this to a folder on your computer.  End with a backslash
  sPath = "C:UsersusernameDocumentsExcel CampusScratch Pads"

  'Loop through each workbook
  For Each wb In Application.Workbooks
    
    'Prevent the workbook that contains the
    'code from being closed
    If wb.Name <> ThisWorkbook.Name Then
      
      'Check if the file names has an extension
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        'Save scratchpads in a folder
        wb.Close SaveChanges:=True, _
            Filename:=sPath & wb.Name & Format(Now, " yyyy-mm-dd-hhmm")
      End If
    
    End If
  Next wb

End Sub


未经授权,不得转载
展开 收起

Office 365 家庭版

Office 365 家庭版

235元起

《1Password》 ios密码管理软件

《1Password》 ios密码管理软件

暂无报价

《Agenda》Mac数字版软件

《Agenda》Mac数字版软件

暂无报价

《vegas pro 14 edit》视频编辑软件

《vegas pro 14 edit》视频编辑软件

132元起

《Money Pro》 记账理财软件

《Money Pro》 记账理财软件

6元起

用友软件 好会计财务软件专业版追加会计角色1用户/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

用友软件 好会计财务软件专业版追加会计角色1用户/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

301元起

ps cc2019 零基础自学 视频教程

ps cc2019 零基础自学 视频教程

13元起

用友软件 好会计财务软件普及版追加1账套/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

用友软件 好会计财务软件普及版追加1账套/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

25元起

《Lossless Photo Squeeze(无损图片瘦身)》

《Lossless Photo Squeeze(无损图片瘦身)》

暂无报价

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

499元起

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

898元起

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

1999元起
0评论

发表评论请 登录
评论举报

请选择举报理由

相关文章推荐

更多精彩文章
更多精彩文章
最新文章 热门文章
7
扫一下,分享更方便,购买更轻松