用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不陌生的！！