EXCEL 当文件打开后，自动执行宏指令，执行完宏命令后，如何按时间按另存为为.xls文件？

Question

如题所述

Answer 1

Sub AddSaveAsNewWorkbook()
Dim Wk As Workbook
Set Wk = Workbooks.Add
Application.DisplayAlerts = False
Wk.SaveAs Filename:="D:/"&Format(Now(), "yyyymmdd_hhmmss")&"文件名.xls" '这里输入路径和文件格式，
Application.DisplayAlerts = true
End Sub本回答被提问者采纳

Answer 2

宏里面写上saveas，例如：
ThisWorkbook.SaveAs Format(Now(), "yyyy-mm-dd") & ".xls"本回答被网友采纳