excel - 如何从 vba 调用 xll 插件函数？

Question

我有一个第 3 方 XLL 插件，我想将其包装在我自己的自定义 vba 函数中。我如何从我的代码中调用第三方函数？

Answer 1

编辑:至少有两种方法可以做到这一点:

<小时/>

选项 1: Application.Run(...)

这看起来是最好的方法，因为您的参数在发送到 XLL 函数之前会自动转换为适当的类型。

Public Function myVBAFunction(A as Integer, B as String, C as Double)
    myVBAFunction = Application.Run("XLLFunction", A, B, C)
End Sub

参见this page了解更多详情。

<小时/>

选项 2: Application.ExecuteExcel4Macro(...)

使用此方法，您必须先将所有参数转换为字符串格式，然后再将它们传递给 XLL 函数。

Public Function myVBAFunction(A as Integer, B as String, C as Double)
    dim macroCall as String
    macroCall = "XLLFunction(" & A
    macroCall = macroCall & "," & Chr(34) & B & Chr(34)
    macroCall = macroCall & "," & C
    macroCall = macroCall & ")"
    myVBAFunction = Application.ExecuteExcel4Macro(macroCall)
End Sub

参见this page了解更多详情。