例如,有如下代码:
set objTest = CreateObject("Obj.Test")
dim VarIn
dim VarOut
call objTest.funcTest(VarIn, VarOut) ' 其中VarOut是输出变量的参数, 定义为长整型Long
-----------------
执行时,系统会编译出错说 "类型不匹配"
若执行语句变为: call objTest.funcTest(VarIn, clng(VarOut) )
则系统不再弹出出错对话框,然后执行该函数。 但随即进入死锁状态,必须重启金字塔才恢复正常。 该函数在其它环境下,如VBA中调试正常。
若函数funcTest不含输出变量的参数VarOut时,可以正常执行。
不知有何办法,能让外部对象的函数输出参数?
[此贴子已经被作者于2013-2-18 12:16:51编辑过]