Excel 宏 保存新文件 文件名为当前时间

Sub 宏1()
'
' 宏1 宏
'


'
    Windows("工作簿1").Activate
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A16"), Type:=xlFillSeries
    Range("A1:A16").Select
    ChDir "C:\Users\Administrator\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\工作簿1" & Format(Now(), "YYYY-MM-DDHHMMSS") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub