使用CallByName调用classModule中的函数很容易
标准模块内的功能怎么样？
标准模块内的功能怎么样？
''#inside class module
''#classModule name: clsExample
Function classFunc1()
MsgBox "I'm class module 1"
End Function
''#
''#inside standard module
''#Module name: module1
Function Func1()
MsgBox "I'm standard module 1"
End Function
''#
''# The main sub
Sub Main()
''# to call function inside class module
dim clsObj as New clsExample
Call CallByName(clsObj,"ClassFunc1")
''# here's the question... how to call a function inside a standard module
''# how to declare the object "stdObj" in reference to module1?
Call CallByName(stdObj,"Func1") ''# is this correct?
End Sub
我认为jtolle的回答最好地解决了这个问题 – 对Application.Run的小参考可能就是答案.提问者不想简单地使用func1或Module1.func1 – 首先想要使用CallByName的原因是在编译时不知道所需的function.sub名称.在这种情况下,Application.Run确实有效,例如：
Dim ModuleName As String Dim FuncName As String Module1Name = "Module1" FuncName = "func1" Application.Run ModuleName & "." & FuncName
您还可以在ModuleName之前添加项目名称,并添加另一个句点“.”.不幸的是,Application.Run不会返回任何值,因此虽然您可以调用函数,但您将无法获得其返回值.