怎么循环调用过程！

tospo

Sub AA()
Dim procedures() As String
procedures = Array("A1", "A2", "A3")
Dim i As Integer
For i = LBound(procedures) To UBound(procedures)
Call procedures(i)
Next i
End Sub

Sub A1()
MsgBox 1
End Sub
Sub A2()
MsgBox 2
End Sub
Sub A3()
MsgBox 3
End Sub
以上运行之后错误，不知道怎么改。一定要CALL A1,CALL A2,CALL A3，不 能用数组吗？

liulang0808

application.run procedures(i)
看看是否可行吧

sdytsxd991122

坐等，更新
字符串 变为 过程？

tspliu

sdytsxd991122 发表于 2024-1-16 14:43
坐等，更新
字符串 变为 过程？

这样一定条件下可以。

tospo

tspliu 发表于 2024-1-16 15:19
这样一定条件下可以。

谢谢，在WORD中，那SHEET2,得改成什么参数？

大灰狼1976

这里应该用run，run就是为这种应用场景准备的。

1. Sub AA()
   
2. Dim procedures
   
3. procedures = Array("Sheet2.A1", "Sheet2.A2", "Sheet2.A3")
   
4. Dim i As Integer
   
5. For i = LBound(procedures) To UBound(procedures)
   
6.   Application.Run procedures(i)
   
7. Next i
   
8. End Sub
   
9. 
   
10. Sub A1()
    
11. MsgBox 1
    
12. End Sub
    
13. Sub A2()
    
14. MsgBox 2
    
15. End Sub
    
16. Sub A3()
    
17. MsgBox 3
    
18. End Sub

复制代码

tspliu

tospo 发表于 2024-1-16 15:58
谢谢，在WORD中，那SHEET2,得改成什么参数？

估计ThisDocument就可以

tospo

大灰狼1976 发表于 2024-1-16 17:00
这里应该用run，run就是为这种应用场景准备的。

谢谢，牛！原来要加SHEET2前缀，代码在放在模块里，就加模块名。(可能跟过程名称有关系，要是全英文就不用带对象，A1,A2,A3改成A,B,C。C还是要带对象。