工作中需要养成给文件备份的习惯。
如果文件出现损坏,那么会是一件很痛苦的事情。
对于重要的数据进行时时的备份是我经常做的一件事情,今天分享两种表格备份的方法。
利用另存为对话框实现备份
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之家网”整理收藏!
评论