VBA保存时备份文件到指定目录

Posted 2020-10-11 零七八碎的资料

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VBA保存时备份文件到指定目录相关的知识，希望对你有一定的参考价值。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
d = Format(Now(), "yyyy-mm-dd_HH.mm.ss")
s = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
ThisWorkbook.SaveCopyAs "E:\test\" & s & "_" & d & ".xlsm"

End Sub

以上是关于VBA保存时备份文件到指定目录的主要内容，如果未能解决你的问题，请参考以下文章

定时任务：windows下备份数据文件到指定的目录

编写脚本程序备份用户指定的文件，将文件备份到目录名 _backup中（若目录不存在则自动建立），备份文件的文件名格式为文件名_bak_年月日_时分秒。