主题：VBA多公式选股问题

以下内容为程序代码:

1 dim blocktype2(5)
2 dim blockname2(5)
3 s1=""
4 s2=""
5 s3=""
6 Set b = CreateObject("Stock.Block")
7 TIMAX2=1
8 blocktype2(TIMAX2)="上海证券交易所"
9 blockname2(TIMAX2)= "上海A股"
10 TIMAX2=TIMAX2+1
11 blocktype2(TIMAX2)="深圳证券交易所"
12 blockname2(TIMAX2)= "深圳A股"
13 TIMAX2=TIMAX2+1
14 blocktype2(TIMAX2)="深圳证券交易所"
15 blockname2(TIMAX2)= "深圳创业"
16
17 FOR I=1 TO TIMAX2
18 'application.MsgOut tnblockcount & blockname2(I)
19 call b.open(blockname2(I),0)
20 tnblockcount=b.count
21 for J=0 TO tnblockcount-1
22 TCMARKET=b.GetStockMarket(J)
23 TCCODE=b.GetStockCode(J)
24 Set Formula1 = marketdata.STKINDI(TCCODE,TCMARKET,"中枢选股",0,5)
25 Set Formula2 = marketdata.STKINDI(TCCODE,TCMARKET,"中枢选股(4,3,-3,160)",0,5)
26 Set Formula3 = marketdata.STKINDI(TCCODE,TCMARKET,"原版信号",0,5)
27 DataSize=Formula1.DataSize
28 IF Formula1.GetBufData("信号",DataSize-1) =1 THEN 
29 s1=s1 & TCCODE & chr(10)
31 END IF
32 IF Formula2.GetBufData("信号",DataSize-1) =1 THEN
33 s2=s2 & TCCODE & chr(10)
34 END IF
35 IF Formula3.GetBufData("信号3",DataSize-1) =1 THEN
36 s3=s3 & TCCODE & chr(10)
37 END IF
38 next
39 next