這個可以用函式來實現Sub DateSave() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path & "\" & Date & ".xls", _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = TrueEnd Sub 最後在執行宏中，來選擇一個快捷鍵來實現這個就可以了。