如何通过字符串形式的函数名引用并调用VBA函数？

我来帮你搞定这个动态调用的问题！你遇到的“宏不存在”错误，主要是因为Application.Run的调用规则没搞清楚，还有Private过程的访问限制问题，咱们一步步拆解：

一、你的测试代码为什么报错？ #

1. 缺少模块名前缀：Application.Run调用标准模块里的宏时，必须加上模块名（比如你的宏在Module1里，就得写成Module1.TestDynamic1），只写过程名的话，VBA找不到对应的宏所在的位置。
2. Private过程无法被外部调用：TestDynamic3是Private级别的，Application.Run只能访问Public级别的过程，所以这个调用必然失败。
3. TestDynamic4本身不存在，报错是正常的，你的错误处理逻辑没问题。

二、修正后的测试代码 #

假设你的所有宏都在名为Module1的标准模块里，修改callTestDynamic过程如下：

Option Explicit

Public Sub TestDynamic1()
    Debug.Print "TestDynamic 1"
End Sub

Sub TestDynamic2()
    Debug.Print "TestDynamic 2"
End Sub

Private Sub TestDynamic3()
    Debug.Print "TestDynamic 3"
End Sub

Sub callTestDynamic(i As Integer)
    On Error GoTo DynamicCallError
    ' 加上模块名前缀
    Application.Run "Module1.TestDynamic" & i
    Exit Sub
DynamicCallError:
    Debug.Print "Failed dynamic call: " & Err.Description
End Sub

Public Sub TestMe()
    callTestDynamic 1 ' 成功输出TestDynamic 1
    callTestDynamic 2 ' 成功输出TestDynamic 2
    callTestDynamic 3 ' 报错（因为是Private）
    callTestDynamic 4 ' 报错（过程不存在）
End Sub

三、实现你期望的动态调用功能 #

根据你的需求，分两种场景给出实现：

场景1：调用标准模块的Public函数

直接用Application.Run，记得加模块名：

Function testFunction(functionName As String)
    ' 替换成你的实际模块名
    Application.Run "Module1." & functionName
End Function

Sub testSub()
    testFunction "test" ' 会调用下面的test函数
End Sub

Public Function test()
    Debug.Print "This function works"
End Function

场景2：调用类模块的方法（更灵活的面向对象场景）

如果你的函数是类的成员，用CallByName会更合适，比如：

1. 新建一个类模块（命名为MyClass）：

Public Function test()
    Debug.Print "This function works"
End Function

2. 在标准模块里实现调用：

Function testFunction(classInstance As Object, functionName As String)
    ' VbMethod表示调用的是方法/函数
    CallByName classInstance, functionName, VbMethod
End Function

Sub testSub()
    Dim myObj As New MyClass
    testFunction myObj, "test"
End Sub

关键知识点总结 #

• Application.Run：适合调用标准模块、ThisWorkbook、工作表对象里的Public过程/函数，必须指定对象/模块名前缀。
• CallByName：更适合调用类对象的成员（方法、属性），也能用于标准模块的Public成员，但需要明确对象（标准模块可以用Module1作为对象）。
• Private过程：无法被外部的Application.Run或CallByName直接调用，如果必须要动态调用，建议改成Public，或者在模块内部写一个Public的代理过程来中转调用。

内容的提问来源于stack exchange，提问作者Michael Dean