以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  我想在自定义函数中调用DLL，发现无法成功。  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=64018)
--  作者：ljact
--  发布时间：2014/4/16 15:36:18
--  我想在自定义函数中调用DLL，发现无法成功。

自定义了一个函数BI（）

Function Bi(Formula,H,L)

 Set History = Formula.ParentGrid.GetHistoryData()
 dim MyAddin
 
 set myaddin=createobject("MyActiveXDemo.VBSAddin")
 \'bi=myaddin.mytest(H)
 
 End Function

 

执行到 set myaddin=createobject("MyActiveXDemo.VBSAddin")行时报错。

这个DLL是用VB生成的。代码如下：

 

Function VBSAddin(ByRef H As Double) As Double

VBSAddin = 2

End Function

 

报错原因是不能创建对象，错误代码429.
--  作者：王锋
--  发布时间：2014/4/16 20:36:33
--  
你先试试在office vba下能否调用成功吧，感觉你做的DLL是Activex嘛?
--  作者：ljact
--  发布时间：2014/4/17 8:58:24
--  

名字写错了，改了以后就能调用了。我的DLL是activeX的。

不过，VBS是不是不支持数组传参啊？好像无论怎么改都不行。
--  作者：王锋
--  发布时间：2014/4/17 9:06:00
--  

数组暂时不行
--  作者：ljact
--  发布时间：2014/4/17 9:19:16
--  

那有无办法批量处理序列模式下的数据序列呢？