vba - VBA Excel 备份：通过 VBA 以新名称保存当前工作簿的副本，保留 VBA 脚本，无提示

Question

我需要制作一个 VBA 脚本，它可以获取当前工作簿的完整副本并将其保存为新名称。

它需要是包含 VBA 脚本和所有内容的完整副本。

可能不会提示用户输入任何内容 - 新文件名（和位置）将由代码提供。

Answer 1

当然这样的事情就足够了吗？

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Data.xlsm"
Application.DisplayAlerts = True

Answer 2

试试这个：

Activeworkbook.SaveCopyAs "C:\Data.xlsm"

Answer 3

我注意到至少对于 Excel 2013ActiveWorkbook.SaveAs Filename:="C:\Data.xlsm可能无法正常工作，因为我说 excel 无法保存为文件类型 xlsm。

但是，我确实找到了适合自己的解决方法，并想在此处添加它作为可能遇到相同问题的其他人的参考。

如果您, FileFormat:=52在代码之后添加，它将能够保存为xlsm格式。

所以这对我有用：

ActiveWorkbook.SaveAs Filename:="C:\Data.xlsm, FileFormat:=52"

快乐编码！