Question

求大神指点，excel中怎样设置可以在点保存的时候，自动根据系统日期另存为到指定文件夹

如题
点保存的时候，自动在文件名后面加上当前的日期时间，保存到指定的文件夹

Answer 1

假如将文件另存到D:\123文件夹中，代码如下：

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
   If Success Then
      With ThisWorkbook
         .ChangeFileAccess 3
         FileCopy .FullName, "d:\123\" & Split(.Name, ".")(0) & Format(Now, "yyyymmdd-hhmmss.") & Split(.Name, ".")(1)
         .ChangeFileAccess 2
      End With
   End If
End Sub

代码位置不是在模块里：

Answer 2

姓王的wy 回答很好，收藏下！