1、直接保存。Sub SaveWb() ThisWorkbook.SaveEnd Sub
2、另存(打开的表格被重命名为SaveAsWb.x盟敢势袂lsm)。Sub SaveAsWb() On Error Resume N髫潋啜缅ext ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\SaveAsWb.xlsm"End Sub
3、复制保存(打开的表格名称不变,相同目录下增加一个SaveCopyWb.xlsm")。Sub SaveCopyWb() ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\SaveCopyWb.xlsm"End Sub