Excel 运行VBA把当前工作簿以当前时间命名并保存，

Sub 另存更名()
Dim sj, mz
mz = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1)
sj = Format(VBA.Date, "yymmdd") & Format(VBA.Time, "HHMMSS")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & mz & "_" & sj
MsgBox "另存完成"
End Sub
复制代码

评分