未加载第三方XLA加载项时，如何通过VBA直接调用其方法？

如果你的需求是在XLA加载项未预先加载的情况下直接调用它的函数或子程序，其实可以通过自动加载+调用的方式实现，不需要手动先去加载再调用。下面是具体的实现思路和代码示例：

核心思路 #

Excel的Application.Run方法支持直接指定未加载XLA的完整路径+方法名，Excel会自动尝试加载该加载项并执行对应的方法。另外也可以手动检查加载状态，按需加载后再调用，两种方式都可行，下面分别说明。

方法1：直接用Application.Run调用（自动加载） #

这种方式最简洁，不需要提前检查加载状态，Excel会帮你处理加载逻辑。需要注意的是要提供XLA文件的完整路径，否则Excel可能找不到文件。

调用函数示例：

Sub CallXLAFunctionWithoutLoading()
    Dim xlaPath As String
    Dim result As Variant
    
    ' 替换成你的XLA文件的完整路径
    xlaPath = "C:\YourAddIns\MyCustomAddin.xla"
    
    On Error GoTo ErrorHandler
    ' 格式："[XLA完整路径]!函数名"，如果有参数直接后面追加
    result = Application.Run("[" & xlaPath & "]!MyCustomFunction", "参数1", 123)
    
    ' 处理返回结果
    MsgBox "函数返回结果：" & result
    Exit Sub
    
ErrorHandler:
    MsgBox "调用失败：" & Err.Description, vbCritical
End Sub

调用子程序示例：

Sub CallXLASubWithoutLoading()
    Dim xlaPath As String
    
    xlaPath = "C:\YourAddIns\MyCustomAddin.xla"
    
    On Error GoTo ErrorHandler
    ' 同样的格式，子程序不需要接收返回值
    Application.Run "[" & xlaPath & "]!MyCustomSub", "子程序参数"
    Exit Sub
    
ErrorHandler:
    MsgBox "调用子程序失败：" & Err.Description, vbCritical
End Sub

方法2：手动检查加载状态，按需加载后调用 #

如果你需要更精细的控制（比如加载后保持加载状态，或者避免重复加载），可以先检查XLA是否已经加载，未加载则手动加载，再调用方法。

检查并加载XLA的辅助函数：

Function LoadXLAIfNeeded(xlaName As String, xlaPath As String) As Boolean
    Dim addIn As AddIn
    
    ' 检查加载项是否已加载（通过名称判断，名称是加载项在Excel加载项对话框里的显示名）
    On Error Resume Next
    Set addIn = Application.AddIns(xlaName)
    On Error GoTo 0
    
    If addIn Is Nothing Then
        ' 如果加载项不在AddIns集合中，先添加它
        Set addIn = Application.AddIns.Add(xlaPath)
    End If
    
    If Not addIn.Installed Then
        ' 如果未加载，安装加载项
        addIn.Installed = True
    End If
    
    LoadXLAIfNeeded = True
ErrorHandler:
    LoadXLAIfNeeded = False
    MsgBox "加载XLA失败：" & Err.Description, vbCritical
End Function

调用示例：

Sub CallLoadedXLA()
    Dim xlaName As String
    Dim xlaPath As String
    
    ' 加载项的显示名称（比如在Excel加载项对话框里的名称）
    xlaName = "我的自定义加载项"
    xlaPath = "C:\YourAddIns\MyCustomAddin.xla"
    
    If LoadXLAIfNeeded(xlaName, xlaPath) Then
        ' 加载成功后，直接调用方法（不需要路径，直接用方法名）
        Dim result As Variant
        result = Application.Run("MyCustomFunction", "参数")
        MsgBox "函数结果：" & result
        
        ' 调用子程序
        Application.Run "MyCustomSub"
    End If
End Sub

注意事项 #

• 确保XLA文件路径正确，尽量避免使用相对路径（除非你能保证当前工作簿的路径和XLA的相对关系始终稳定）。
• 如果XLA加载项依赖其他库或文件，需要确保这些依赖也能被Excel正常找到。
• 一定要做好错误捕获，避免因为文件不存在、方法名拼写错误等情况导致程序崩溃。

内容的提问来源于stack exchange，提问作者Marcus Mangelsdorf