1、当前工作簿另存为一份副本

指定路径将工作簿另存为一份副本，副本保存了工作簿的更改，但不影响当前工作簿。

在当前空白活动工作簿中运行下列代码：

Sheet1.[A1] = "AAAA"

ActiveWorkbook.SaveCopyAs "C:\Users\Administrator\Desktop\a.xls"

将在桌面新增一个a.xls的工作簿，并记录了更改。

2、保存当前工作簿更改。

Sheet1.[A1] = "AAAA"

ActiveWorkbook.Save

上述代码相当于我们点击保存(Ctrl+S)按钮。

3、SaveAs保存工作簿。

Sheet1.[A1] = "AAAA"

ActiveWorkbook.SaveAs

上述代码，新增一个同名的工作簿，并提示替换当前活动工作簿，如果选择是，则保存更改，否则出错。

在SaveAs写上路径参数，也相当于将当前工作簿另存为一份“副本”。

但当前工作簿会自动关闭，且不保存更改，然后打开 b.xls工作簿 替换为当前活动工作簿。

Sheet1.[A1] = "AAAA"

ActiveWorkbook.SaveAs "C:\Users\Administrator\Desktop\b.xls"

4、关闭工作簿时 "另存为副本"。

Sheet1.[A1] = "AAAA"

ActiveWorkbook.Close True, "C:\Users\Administrator\Desktop\c.xls"

上述代码会关闭当前活动工作簿，不保存更改（尽管Close后面使用True保存更改，但实际当前工作簿并不保存Sheet1.[A1] = "AAAA"的操作。），但不关闭Excel。

同时也会在指定的路径下生成一个保存了更改的“副本”。

综上：

1、保存一份工作簿文件副本（保存更改），选择用SaveCopyAs。

2、只保存工作簿更改，选择用Save（比较通用）。

3、对于操作新建的工作簿，将数据或者工作表保存（另存）为工作簿，可以使用SaveAs和Close（后带路径参数）。使用屏蔽提示语句Application.DisplayAlerts = False将会自动覆盖（替换）原文件。

点击 了解更多 查看上一篇VBA简单入门25：Dir函数获取文件信息，判断文件是否存在