如何在 Excel 中快速将工作簿保存到多个位置？

在 Excel 中，我们可以根据需要将工作簿保存到特定的位置，但是，您是否想过同时将一个工作簿保存到多个文件夹中呢？本文将通过 VBA 代码，教您如何快速一次性将一个工作簿保存到多个位置。

使用 VBA 将工作簿保存到多个位置

使用 VBA 将工作簿保存到多个位置

要将工作簿保存到多个位置，您只需应用一个宏代码即可。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块脚本中。参见截图：

VBA：将工作簿保存到多个位置

Sub SaveToLocations()
'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\Documents\" + ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\" + ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

提示：在宏代码中，您可以根据需要更改保存路径。

3. 按 F5 键运行代码，当前工作簿将被保存到代码中指定的位置。