通过其他工作簿宏打开文件时，Workbook_Open内ExcelAnt加载项无法运行

问题根本原因 #

手动打开Excel时，Excel会提前加载用户配置的所有已启用的XLL加载项，且宏安全策略是你本地已经配置好的放行状态；但你通过CreateObject新建的Excel实例是完全独立的干净进程，默认不会主动加载非内置加载项，且自动化启动的Excel实例宏安全策略默认优先级更高，导致你在Workbook_Open里加载XLL的逻辑执行完后，XLL的宏还没完成注册就调用了Connect，所以报错。

1. 修改批量打开的主宏，提前初始化新Excel实例的环境 #

Sub open_files()
    Dim MyFiles As String
    Dim xlApp As Object
    ' 先保存当前Excel的自动化安全设置，避免修改默认配置
    Dim originalSecurity As MsoAutomationSecurity
    originalSecurity = Application.AutomationSecurity
    
    MyFiles = Dir("C:\my_folder\*xls*")
    Do While MyFiles <> ""
        Set xlApp = CreateObject("Excel.Application")
        ' 临时调低当前新实例的自动化宏安全等级，允许宏运行
        xlApp.AutomationSecurity = msoAutomationSecurityLow
        xlApp.Visible = True
        ' 预加载ExcelAnt加载项，再打开目标工作簿
        On Error Resume Next
        ' 先尝试找已加载的加载项，没有就添加加载
        Dim addin As Object
        Set addin = xlApp.AddIns("ExcelAnt")
        If Err.Number <> 0 Then
            Set addin = xlApp.AddIns.Add(Filename:="C:\ExcelAnt\ExcelAnt-AddIn64.xll", Install:=True)
        End If
        addin.Installed = True
        On Error GoTo 0
        ' 加个短延时，等待XLL加载完成注册
        DoEvents
        ' 再打开目标工作簿
        xlApp.Workbooks.Open "C:\my_folder\" & MyFiles
        MyFiles = Dir
    Loop
    ' 恢复原来的安全设置
    Application.AutomationSecurity = originalSecurity
End Sub

2. 优化目标工作簿的Workbook_Open逻辑，避免寻址错误 #

原来的代码直接调用Application.Run "Connect"会默认在当前工作簿下找宏，XLL的宏需要明确指定来源，而且打开XLL的方式不对，应该用AddIns集合加载：

Public Sub Workbook_Open()
    Dim addin As Object
    On Error Resume Next
    Set addin = Application.AddIns("ExcelAnt")
    ' 没找到就加载
    If Err.Number <> 0 Or addin.Installed = False Then
        Set addin = Application.AddIns.Add(Filename:="C:\ExcelAnt\ExcelAnt-AddIn64.xll", Install:=True)
        addin.Installed = True
        DoEvents
    End If
    On Error GoTo 0
    
    Dim hostenv As String
    hostenv = Left(Environ("computername"), 3)
    ' 明确指定从ExcelAnt加载项运行Connect宏，避免寻址错误
    Application.Run addin.Name & "!Connect", "prd"
End Sub

其他排查点 #

• 确认你加载的XLL位数和Excel实例位数一致，32位Excel不能加载64位XLL
• 检查ExcelAnt的加载项在Excel信任中心的受信任位置列表里，避免被拦截
• 如果你不需要每个文件单独开一个Excel实例，建议复用同一个xlApp对象，能大幅提高运行速度，也避免重复加载XLL的开销

内容的提问来源于stack exchange，提问作者Max Shen Molesky