以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBA调用公式遍历盘面问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=94630)

--  作者:jinn
--  发布时间:2016/3/11 12:04:43
--  VBA调用公式遍历盘面问题
 请问这样的遍历是否需要后台交易支持? 
   for J=0 TO tnblockcount-1        \'循环逐步获取个股公式信息
   TCMARKET=b.GetStockMarket(J) 
   TCCODE=b.GetStockCode(J) 
   Set Formula1 = marketdata.STKINDI(TCCODE,TCMARKET,"两连扳测试",0,5)  \'调用函数进行测试
   DataSize=Formula1.DataSize 
   IF Formula1.GetBufData("两连扳",DataSize-1) =1 and Formula1.GetBufData("连续涨停数",DataSize-1)=2 and Formula1.GetBufDateData(DataSize-1)=date THEN \'非停牌股 
   application.MsgOut TCCODE & TCMARKET & ":" & Formula1.GetBufData("两连扳",DataSize-1) & ", " & Formula1.GetBufData("连续涨停数",DataSize-1) 
   call b.open("两连板",1) 
   call b.AddStock(TCMARKET,TCCODE) 
   call b.ToSave("自选","两连板") \'保存数据 
   END IF 
   next 

--  作者:yukizzc
--  发布时间:2016/3/11 13:58:53
--  

不需要,这个你自己在vba界面启动就行了。

涉及交易的对象需要专业版


--  作者:jinn
--  发布时间:2016/3/11 15:00:40
--  
非常感谢