VBScript通过引用VarPtr将值传递给ActiveX函数 有用链接

编程问答 2022-06-06

问题描述

我正在尝试：

  Dim oApp
  Dim iReturnedResult

  Set oApp = CreateObject("Some.Application")
  Set F_Ord = oApp.Documents.Open("Window 1",VarPtr(iReturnedResult))

ActiveX控件期望第二个参数为Long by reference。

这在Excel VBA中非常有效。 我可以逐步运行此步骤，并看到返回的结果应该是应该的。

但是，当我将此代码移到VBS文件并从命令行（CScript.exe）运行它时，出现错误 800A000D ，这意味着它是错误的类型。

我也尝试过创建一个数组，并使用这些命令进行了测试，没有任何运气：

Set F_Ord = oApp.Documents.Open("Window 1",VarPtr(iReturnedResult(0)))
Set F_Ord = oApp.Documents.Open("Window 1",iReturnedResult(0))

有人知道如何通过引用VBScript中的ActiveX控件来传递长变量吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

activexactivexpass-by-referencevbscriptvbscriptwsh