怎样用vba让xla在原位置添加进加载项？

用VBA加载xla加载宏的代码如下：

例如：在D盘根目录下面有一个加载宏myxla.xla文件。要通过VBA加载他的方法如下：

Sub Test()

    Application.addins.add("D:\myxla.xla").Installed = true

End Sub

当然，路径可以用变量或者属性指定，比如本工作簿同一目录下有一个加载宏myxla.xla，那么就是这么个代码了，如果你熟悉VBA *** 作，那么我的这个第二个例子就显得多余了：

Sub Testing()

    Application.addins.add(ThisWorkbook.path & "\myxla.xla").Installed = true

End Sub

当然，你在别人的追问里说道：“我就是想在xla内的表单里添加"启用自动加载"按钮”，那么把上面的代码改成CommandButton1_Click()就可以了，看起来你应该对VBA不陌生的！！

你可以点击你截图上的“浏览”按钮自己手工添加，不过在默认路径下面Addins里是空的，你可以尝试在C:\ProgramFiles(x86)\MicrosoftOffice\Office12\Library\文件夹下面找找，比如：“标签打印向导”可能就是这个目录里的“LabelPrint”文件夹下的LABELPRINT.XLAM。如果实在找不到其他加载项，可以尝试搜索电脑中的*.xlam,*.xla,*.xll文件，然后浏览再加载进来，多多少少能找到一点。最后我列一下我电脑上的加载项，方便你可以到网上去搜索相关安装包：InternetAssistantVBA标签打印向导查阅向导分析工具库规划求解加载项欧元工具条件求和向导网上搜索以上加载项的安装包即可。

---