VBA简单入门26：工作簿（数据、工作表）保存、另存为工作簿

VBA简单入门26：工作簿（数据、工作表）保存、另存为工作簿

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将会自动覆盖（替换）原文件。