以编程方式保存Excel加载项

Question

我有一个工作表，偶尔由用户更新，用于制作加载项（.XLAM）。加载项位于网络共享上，并且用户链接到该共享。我希望使用户能够轻松更新此加载项（确保将其标记为只读）

我在这里看到了Ken Puls的有关部署Excel加载项的文章，但是.SaveCopyAs他使用的方法似乎无法接受文件类型。

该.SaveAs方法可以，但是当尝试此操作时，我收到一条消息，指出文件格式或扩展名无效，我已经尝试使用.XLAM和.XLA进行如下操作。

DeployPath = "C:\Menu.xlam"
.SaveAs Filename:=DeployPath, ReadOnlyRecommended:=True, FileFormat:=xlOpenXMLAddIn

在这方面的任何帮助将不胜感激。

Answer 1

我认为您需要使用（Excel 2003及更早版本）

ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs "fredyy", xlAddIn

对于Excel 2007+使用

ThisWorkbook.SaveAs "fredyy", xlOpenXMLAddIn