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
'
' 宏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