主题：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