以编程方式安装附加VBA

我正在创build一个macros，它将为用户安装一个加载项到excelfunction区。 我到了：

Private Sub Workbook_Open() On Error Resume Next Application.AddIns("Name of Addin").Installed = False On Error GoTo 0 With Application .AddIns.Add "Filepath to addin in shared location", False .AddIns("Name of Addin").Installed = True End With ThisWorkbook.Close False End Sub 

一旦运行macros，插件安装到function区没有问题。 问题是，一旦excelclosures，插件不再显示在function区中。

看来excel正在等待插件被复制到用户C：\ Documents and Settings \用户名\ Application Data \ Microsoft \ AddiIns文件夹中，因为它引发了在closures后启动Excel时无法find它的错误。

现在我的理解是，下面的代码行的第二个（假）variables基本上说，插件不应该复制到AddIns目录，而应该留在共享位置。

 .AddIns.Add "Filepath to addin in shared location", False 

任何想法，为什么Excel是期待插件在用户的默认文件夹？

谢谢