工作中需要养成给文件备份的习惯。
如果文件出现损坏，那么会是一件很痛苦的事情。
对于重要的数据进行时时的备份是我经常做的一件事情，今天分享两种表格备份的方法。
利用另存为对话框实现备份
Excel中依次点击文件→另存为→浏览需要另存文件的位置→在另存为对话框点击右下角工具→常规选项→勾选生成备份文件（密码可输入可不输入）
此时备份操作结束。后续每次点击保存时，备份文件便会自动更新为xlk后缀的文件。
使用VBA指定位置备份
VBA的使用首先需要确定Excel可以使用，微软的版本可以免费使用，WPS需要另外购买。使用前需要将文件格式存储为启用宏的版本，并且确认宏安全性为低。
这个方法可以保留往期备份的历史文件，并按照备份时间命名。
代码部分如下，只要修改需存储备份文件地址即可。
Private Sub Workbook_BeforeSave(ByValSaveAsUI As Boolean, Cancel As Boolean)
'此处放置需要存储备份的地址
地址 = "C:\Users\G\Desktop\关于表格自动备份的两种方法"
t =Now()
t =Replace(t, "/", ".")
t =Replace(t, ":", ".")
ActiveWorkbook.SaveCopyAs Filename:=地址 &"\" & ThisWorkbook.Name & t & ".xlsm"
End Sub
欢迎点击关注，后续会有更多精彩内容！
以上内容来源于网络，由“WiFi之家网”整理收藏！
原创文章，作者：电脑教程，如若转载，请注明出处：https://www.224m.com/207212.html
