创建当前工作簿的备份和一次关闭所有工作簿

【分享成果，随喜正能量】专注地做一件事，做到极致，胜过敷衍地做很多事。不求多，但求精，不求散，但求专。每个人的时间和精力都是有限的，专注于某个领域，沉得住气，静得下心，充分发挥自己的潜能，持续深耕，才能有所作为。。

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：创建当前工作簿的备份和一次关闭所有工作簿

第三章工作薄代码

Workbook Codes

1创建当前工作簿的备份Create a Backup of a Current Workbook

Sub nzFileBackUp() '创建当前工作簿的备份

    ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _

        "\" & Format(Date, "mm-dd-yy") & " " & ThisWorkbook.Name

End Sub

这是最有用的宏之一，可以帮助您保存当前工作簿的备份文件。它将备份文件保存在保存当前文件的同一目录中，并且还将添加带有文件名的当前日期。

This is one of the most useful macros which can help you to save a backup file of your current workbook. It will save a backup file in the same directory where your current file is saved and it will also add the current date with the name of the file.

Ø本节内容参考程序文件：Chapter03.xlsm

2一次关闭所有工作簿Close all Workbooks at Once

Sub nzCloseAllWorkbooks() '一次关闭所有工作簿

    Dim wbs As Workbook

    For Each wbs In Workbooks

        wbs.Close SaveChanges:=True

    Next wb

End Sub

使用此宏代码关闭所有打开的工作簿。此宏代码将首先逐个检查所有工作簿并关闭它们。如果未保存任何工作表，您将收到一条消息以保存它。

Use this macro code to close all open workbooks. This macro code will first check all the workbooks one by one and close them. If any of the worksheets is not saved, you'll get a message to save it.

Ø本节内容参考程序文件：Chapter03.xlsm

本讲内容参考程序文件：Chapter02.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：