引言：为什么要用VBA控制加载宏？

在日常Excel工作中，我们经常会使用各种加载宏（Add-Ins）来扩展功能，比如：

- 数据分析工具包（如Power Query、Solver）

- 自定义函数库（如财务计算、文本处理）

- 企业专用插件（如ERP导出工具）

但手动在 【文件】→【选项】→【加载项】 里开关加载宏很麻烦！

今天教你用VBA的`AddIns`集合自动化管理加载宏，提升工作效率！

----------------------------------

1. 认识AddIns集合

`AddIns`是Excel VBA提供的全局集合对象，代表所有可用的加载宏（无论是否已启用）。

通过它，我们可以：

列出所有加载宏

启用/禁用指定加载宏

动态加载自定义工具

---

2. 基础操作：遍历所有加载宏

Sub ListAllAddIns()
Dim addIn As AddIn
Dim msg As String
For Each addIn In Application.AddIns
msg = msg & addIn.Name & " - " & IIf(addIn.Installed, "已启用", "未启用") & vbCrLf
Next

MsgBox "当前加载宏列表：" & vbCrLf & vbCrLf & msg, vbInformation
End Sub

3. 核心功能：启用/关闭加载宏

方法1：通过名称控制

' 启用加载宏（如"分析工具库"）
Sub EnableAddIn()
Application.AddIns("分析工具库").Installed = True
MsgBox "已启用分析工具库！", vbInformation
End Sub
' 关闭加载宏
Sub DisableAddIn()
Application.AddIns("规划求解加载项").Installed = False
MsgBox "已关闭规划求解加载项！", vbExclamation
End Sub

方法2：自动判断状态切换

Sub ToggleAddIn(addInName As String)
With Application.AddIns(addInName)
.Installed = Not .Installed ' 切换状态
MsgBox addInName & IIf(.Installed, " 已启用", " 已禁用"), vbInformation
End With
End Sub

4. 实战应用案例

案例1：按需动态加载工具

Sub RunSolverAutomatically()
' 检查是否启用了规划求解
If Not Application.AddIns("规划求解加载项").Installed Then
If MsgBox("需要启用规划求解加载项，是否继续？", vbQuestion + vbYesNo) = vbYes Then
Application.AddIns("规划求解加载项").Installed = True
Else
Exit Sub
End If
End If

' 调用规划求解功能
SolverOk ... ' 你的求解代码
End Sub

```

案例2：批量启用企业插件

Sub EnableCompanyAddIns()
Dim requiredAddIns As Variant
requiredAddIns = Array("ERP导出工具", "财务报表生成器", "数据校验插件")

Dim i As Integer
For i = LBound(requiredAddIns) To UBound(requiredAddIns)
If Application.AddIns(requiredAddIns(i)).Installed = False Then
Application.AddIns(requiredAddIns(i)).Installed = True
End If
Next

MsgBox "企业插件已全部启用！", vbInformation
End Sub

5. 高级技巧

技巧1：检查加载宏是否存在

Function IsAddInExist(addInName As String) As Boolean
On Error Resume Next
IsAddInExist = (Application.AddIns(addInName).Name = addInName)
On Error GoTo 0
End Function

技巧2：获取加载宏的完整路径

Sub ShowAddInPath()
Dim addInName As String
addInName = "Power Query"

If IsAddInExist(addInName) Then
MsgBox addInName & " 的路径：" & vbCrLf & Application.AddIns(addInName).FullName
Else
MsgBox addInName & " 不存在！", vbExclamation
End If
End Sub

6. 注意事项

1. 权限问题：某些加载宏需要管理员权限才能修改

2. 名称匹配：加载宏名称必须完全匹配（区分大小写）

3. 重新计算：启用/禁用后可能需要重启Excel才能生效

‘AddIns‘集合是管理Excel加载项的利器！

自动化控制可以避免手动操作的繁琐

特别适合需要动态加载工具包的场景

你的工作需要经常开关哪些加载宏？

试试用VBA自动化吧！

如果觉得有用，请点赞+收藏！

关注我，获取更多Excel VBA高效技巧！