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

Posted 零七八碎的资料

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保存时备份文件到指定目录的主要内容，如果未能解决你的问题，请参考以下文章