在 Excel 中，我们可以按需将工作簿保存到指定位置，但您是否想过同时将同一工作簿保存到多个文件夹？本文将借助 VBA 代码，助您一键快速将工作簿同步保存至多个目标位置。

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

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

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

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

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

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

Sub SaveToLocations()
'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "C:UsersDT168Documents" + ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "C:UsersDT168" + ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

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

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