保存文件名为原文件加更新日期 vba代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim s$
w = "abc " & Month(Now) & "月" & Day(Now) & "日" & ".xls"
With Me
s = .ActiveSheet.[b2] & w
If s <> .Name Then
.SaveCopyAs .Path & "\" & s
.ChangeFileAccess xlReadOnly
Kill .FullName
Else
.Save
End If
End With
End Sub
我想在原文件修改之后选择保存时,文件名自动更改为原文件名加最后一次修改日期,如果原文件未修改,那么退出时正常提示是否保存
这个怎么改,求教大神,感谢