excel - 使用 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

标签： excelvba

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

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