打开文件自动备份
前言：
- 一直忙一直忙，今天终于有空看下VBA了，才发现之前学习过的全部忘了，笔记放哪也不知道了，想想这回做笔记应该在博文上写，这样才能随时随地都能查到。
- 天天与数字打交道，天天都编辑电子表格文件，如果操作有误，撤销回来就行，但有时候撤销步骤有限，或者中间自己点了保存，根本无法还原到想要的内容。因此想通过VBA代码来实现打开工作簿时自动备份文件 ，如果无意中破坏了数据，还可以通过备份文件来恢复一切数据。
解决思路
-
采用Workbook.SaveCopyAsy方法将文件在打开时另存一份，要求另存的备份文件的名称后面加“（bak）”
image.png
操作方法1
- 在模块中录入以下代码
Sub auto_open()
Dim hzm As String
hzm = Trim(Right(Replace(ThisWorkbook.Name, ".", Space(100)), 100))
ThisWorkbook.SaveCopyAs Replace(ThisWorkbook.FullName, hzm, hzm & "(bak)")
End Sub
-
模块中的代码效果图
image.png
操作方法2
- 通过Workbook打开事件实现自动备份
Private Sub Workbook_Open()
Dim hzm As String
hzm = Trim(Right(Replace(ThisWorkbook.Name, ".", Space(100)), 100))
ThisWorkbook.SaveCopyAs Replace(ThisWorkbook.FullName, hzm, hzm & "(bak)")
End Sub
-
ThisWorkbook中的代码效果图
image.png
完成效果图
-
保存关闭文件，把文件复制到别的文件夹，打开文件后，会发现同文件夹里多了一个备份文件。
image.png
原理分析
- VBA中规定名为“Auto_Open”且存放在模中的子程序可以随着打开文件而自动执行，所以操作方法1可行。
- 模块中的“Auto_Open”子程序和工作簿事件“Workbook_Open”的功能是一样的，不过工作簿事件的代码只能放在ThisWorkbook代码窗口中，不能存放在模块中。
- 在备份数据时，应采用ThisWorkbook.SaveCopyAs 方法，不能使用 ThisWorkbook.SaveAs方法。因为备份文件后活动工作簿依然是当前工作簿，而另存的文件成了活动工作簿，搞不好错误编辑备份文件了。
我的小笔记
- Replace(ThisWorkbook.Name, ".", Space(100))为将文件名中的所有点替换成100个空格。
- Right(*,100)从右边取100个字符，得到的结果应是“ xlsm”，其实后缀名只有几位，100位前面肯定是空格，因为前面故意加了100个空格，也可以适当少加点。
- trim函数目的是去掉前面的空格，就得到完整的后缀名“xlsm”，然后把这个后缀名赋给变量“hzm”
- Workbook.SaveCopyAs 方法，将工作簿副本保存到文件中，但不修改内存中打开的工作簿。表达式：SaveCopyAs (FileName)
升级优化
- 上述达备份的目的，但都是只有一个备份文件，都是最新的备分份替换了旧的备份，想找回更加久远的内容就不可能了，应该设置成多个备份文件，而且每个备份文件带有时间标志便于区分。
Sub auto_open()
Dim hzm As String
Dim tim As String
hzm = Trim(Right(Replace(ThisWorkbook.Name, ".", Space(100)), 100))
tim = Format(Now(), "yyyymmddhhmmss")
ThisWorkbook.SaveCopyAs Replace(ThisWorkbook.FullName, hzm, hzm & "(bak)" & tim)
End Sub
image.png
后记
- 可以实现备份了是真的，可备份文件多了也占空间哦，这个问题还是留给小朋友们自已想想办法吧。
