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.CloseTrue, '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函数获取文件信息，判断文件是否存在

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。