vba - 从字符串值 VBA 调用子例程

Question

尝试使用字符串调用此子例程。我已经尝试过 Application.Run 就像我在网上阅读的那样，但这似乎不起作用。变量元素将循环并代表不同的状态代码。所以我有名为“CA_Config”、“GA_Config”、“AZ_Config”等的子目录。

Dim strSubToCall As String
strSubToCall = element & "_Config()"
Application.Run strSubToCall

状态子程序非常不同，因此需要不同的子例程。其他子系统以及调用其他子系统的主子系统都是公共(public)的。

下面的 CA 子示例

Public Sub CA_Config()

Dim rngLastHeader As Range
Dim intLastRow As Integer
Dim i As Integer
intLastRow = Sheet1.currWS.UsedRange.Rows.Count
Set rngLastHeader = Sheet1.currWS.Range("A1").End(xlToRight)

rngLastHeader.Offset(, 1).Value = "Use Tax Reversal Needed"

Sheet1.currWS.Range("X:X").EntireColumn.Copy
Sheet1.currWS.Range("Y:Y").PasteSpecial xlPasteFormats
Sheet1.currWS.Range("Y:Y").Columns.AutoFit

End Sub

Answer 1

删除括号并在您的子名称前面加上模块名称。例如，Application.Run "Module1.MySub"。