Excel VBA系列之自动备份文件

1. 点击“开发工具”，打开Visual Basic。

2. 双击项目工程下的“This Workbook”，当前正在操作的工作簿。

3. 在代码框上方两个选项框，分别选择Workbook和BeforeSave，BeforeSave是工作簿的一个事件，在保存Excel文件之前触发。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

4. 添加自动备份Excel文件（或工作簿）的代码：SaveCopyAs指的是另存一个备份。

5. 保存在D盘的test文件夹下，并且以保存Excel文件时的文本格式时间来命名。

Excel VBA系列之NOW和TEXT函数的结合 -

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ThisWorkbook.SaveCopyAs "D:\test\" & Format(Now(), "yyyymmddhhmmss") & ".xlsx"

End Sub

6. 点击Excel文件的保存按钮时，test文件夹下就会自动备份一个Excel文件。

7. 当最新的数据有损时，可以在之前已备份的文件中找回。