Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "d:\data\" & Format(Now(), "yyyymmddhhmmssms") & ".xls"
End Sub
注意：1、ThisWorkbook是指代码所在工作薄，2、SaveCopyAs这个要注意，这个和另存为是在区别的，如果直接另存为，则当前活动工作薄会变成了另存为后的工作薄，这里只是要备份当前工作薄，不改变当前工作薄，所以使用SaveCopyAs，相当于把保存的文件复制一份到指定目录。3、Format(Now(), "yyyymmddhhmmssms")是把Now函数获取到的当前时间转为指定格式，yyyy是代表年份，mm代表月份，dd代表日期，hh代有小时,mm代表分钟，ss代表秒,ms代表毫秒,用时间进行备份，当重要文件由于各方面原因出现问题可以方便找回，同时也方便管理备份文件。4、指定的备份目录要事先建立，如果指定目录不存在将会出错。
excel学习库
excel表格_excel函数公式大全_execl从入门到精通
EXCEL之VBA应用实例-利用工作薄事件实现重要文件自动备份功能2024-05-29 17:08:49
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "d:\data\" & Format(Now(), "yyyymmddhhmmssms") & ".xls"
End Sub
注意：1、ThisWorkbook是指代码所在工作薄，2、SaveCopyAs这个要注意，这个和另存为是在区别的，如果直接另存为，则当前活动工作薄会变成了另存为后的工作薄，这里只是要备份当前工作薄，不改变当前工作薄，所以使用SaveCopyAs，相当于把保存的文件复制一份到指定目录。3、Format(Now(), "yyyymmddhhmmssms")是把Now函数获取到的当前时间转为指定格式，yyyy是代表年份，mm代表月份，dd代表日期，hh代有小时,mm代表分钟，ss代表秒,ms代表毫秒,用时间进行备份，当重要文件由于各方面原因出现问题可以方便找回，同时也方便管理备份文件。4、指定的备份目录要事先建立，如果指定目录不存在将会出错。
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
- 控制面板
- 网站分类
- 搜索
- 最新留言
-
- 文章归档
- 友情链接
Powered By Z-BlogPHP 1.7.3
ICP证:湘ICP备2021010693号-4