以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  自定义函数将行情数据传到VBS  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=4752)
--  作者：guotx2010
--  发布时间：2011/1/9 10:55:21
--  自定义函数将行情数据传到VBS

Function SendToVBA(Formula,A2,A1,B2,B1,D1,D1,D3,D4,G1,G2,G3,G4,Open1,Close1,High1,Low1,StkLabel1,MarketLabel1)
    \'这是从公式中传来的行情数据
    VBA_A2=A2
 VBA_A1=A1
 VBA_B2=B2
 VBA_B1=B1
 VBA_D1=D1
 VBA_D2=D2
 VBA_D3=D3
 VBA_D4=D4
 VBA_G1=G1
 VBA_G2=G2
 VBA_G3=G3
 VBA_G4=G4
 VBA_OPEN=Open1
 VBA_CLOSE=Close1
 VBA_HIGH=High1
 VBA_LOW=Low1
 VBA_StkLabel=STKLABEL1
 VBA_MARKETLABEL=MarketLabel1
 
 If VBA_A1=3 then   \'如果是第3周期，执行开仓或平仓操作
  OpenOrder
 End if 
 
    SendToVBA=1
End Function

 

以上代码是自定义函数，目的是要将行情数据传到VBS后台，然后在后台实现开单、平仓等操作，可是VBS代码编译时出现：

编译器错误1041：名称重定义

请高手们帮我看看。

 

说明：VBA_A1,VBA_A2等是在VBS中定义的public型变量

 

 
--  作者：guotx2010
--  发布时间：2011/1/9 11:01:25
--  

是不是参数个数超过了限制呢？那么参数最多是多少个？

 
--  作者：guotx2010
--  发布时间：2011/1/9 11:08:58
--  
是我自己写重复了参数，两个D1了，改了就好了