另存（打开的表格被重命名为SaveAsWb.xlsm）。

Sub SaveAsWb()

On Error Resume Next

ThisWorkbook.SaveAs Filename:=ThisWorkbook.path & "\SaveAsWb.xlsm"

End Sub