只能另存，不能直接改名
Option ExplicitSub rename()()ThisWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & "aa.xlsm"End Sub
