使用 For 调用数组中的子对象

Question

我有以下数组，其中所有项目都是不同的子项。 有没有办法做这样的事情？

Dim vetor As Variant
vetor = Array("OcultaProcConv", "AbakVs", "OcultaCSR", "GeraKermas", "Tempos", "OcultaDEP","OcultaAEC", "OcultaEscopia", "OcultaResultados", "MudaNumPag", "OcultaCP", "OcultaCertificado")

For contVetor = LBound(vetor) To UBound(vetor)
    Call vetor(contVetor)
Next contVetor

Answer 1

您可以通过使用CallByName来做到这一点：

Dim vetor As Variant
vetor = Array("OcultaProcConv", "AbakVs", "OcultaCSR", "GeraKermas", "Tempos", "OcultaDEP","OcultaAEC", "OcultaEscopia", "OcultaResultados", "MudaNumPag", "OcultaCP", "OcultaCertificado")

For contVetor = LBound(vetor) To UBound(vetor)
    CallByName Me, vetor(contVetor), VbMethod
Next contVetor

这假设潜艇在同一个模块中。

Answer 2

您可以使用必须在Module中才能工作的Application.Run 。 主宏看起来像这样：

Sub Dynamic_Call()

Dim Arr: Arr = Array("Test1", "Test2", "Test3")
Dim i As Long

For i = LBound(Arr) To UBound(Arr)
    Application.Run Arr(i)
Next i

End Sub

---

它将根据上述数组循环调用以下子程序：

Sub Test1()
    MsgBox "Test1"
End Sub

---

Sub Test2()
    MsgBox "Test"
End Sub

---

Sub Test3()
    MsgBox "Test3"
End Sub