excel vba保存表格的几种方法

1、直接保存。

Sub SaveWb()

    ThisWorkbook.Save

End Sub

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

Sub SaveAsWb()

    On Error Resume Next

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

End Sub

3、复制保存（打开的表格名称不变，相同目录下增加一个SaveCopyWb.xlsm"）。

Sub SaveCopyWb()

    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\SaveCopyWb.xlsm"

End Sub