Sub AA()
文件名 = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
后缀名 = Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - InStr(ActiveWorkbook.Name, ".") + 1)
a = ActiveWorkbook.Name
On Error Resume Next '错误继续
Application.DisplayAlerts = False '禁止弹出保存替换提示消息
MkDir "D:\" & "备份" '建文件夹 ThisWorkbook.Path
b = "D:\" & "备份\" & 文件名 & Now() & 后缀名
ActiveWorkbook.SaveCopyAs a & b
End Sub
