如何根据Excel工作表单元格值动态调用对应的VBA过程

报错原因 #

Call pbk触发编译错误的原因是VBA会将pbk直接识别为固定的过程名称，不会读取该变量存储的字符串值，因此找不到名为pbk的过程就会抛出异常。

最简解决方案 #

使用VBA内置的Application.Run方法，它支持传入字符串类型的过程名动态调用对应过程，无需编写多分支判断：

Private Sub CommandButton1_Click()
    Dim pbk As String
    pbk = Trim(Me.Range("L1").Value) ' 去除空格避免匹配失败
    
    If pbk = "" Then Exit Sub
    
    ' 异常处理：避免单元格取值不存在对应过程时程序崩溃
    On Error Resume Next
    Application.Run pbk
    If Err.Number <> 0 Then
        MsgBox "不存在对应过程：" & pbk, vbCritical
        Err.Clear
    End If
    On Error GoTo 0
End Sub

注意事项 #

• 如果你的15个过程是写在工作表模块、类模块中，而非标准模块里，调用时需要加上模块名前缀，比如过程写在Sheet1的模块中，就修改为Application.Run "Sheet1." & pbk
• 如果目标过程需要传参，直接将参数跟在过程名后即可：Application.Run pbk, 参数1, 参数2

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