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

标签：mat   now()   .mm   cancel   this   备份文件   boolean   备份   orm   

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保存时备份文件到指定目录

标签：mat   now()   .mm   cancel   this   备份文件   boolean   备份   orm   

原文地址：http://www.cnblogs.com/doctorsun/p/7684363.html