EXCEL自动保存

EXCEL自动备份是通过VBA实现的

下面贴出相关代码 主要地方已经做了注释

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim savePath As String
Dim fname As String
fname = Format(Date, 'yy-mm-dd') & ThisWorkbook.Name '当天时间 文件名
savePath = 'E:\EXCEL备份\' '保存路径 根据自己喜好设置
ThisWorkbook.SaveCopyAs savePath & fname

End Sub

---

我的设置是在工作簿关闭的时候自动保存 每次关闭的时候都会保存

同一天的会覆盖 意思是一天只有一份最新的

你也可以把代码改了更适应自己的需要

比如说你想关闭前弹出一个对话框提示是否另存一份

这些大家可以自己去琢磨