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