[求助]VBA中调用条件选股 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

条件选股根本没有运作，STKINDI是否不能用条件选股，只能用指标

Sub ssmxsjgx_testbutt_Click()

Dim marketName

Dim blocktype(1000)
    Dim blockname(1000)
    Dim I,TIMAX,J,tnreturn
    Dim tcblocktype,tcblockname
    Dim tnblockcount

TIMAX=1
blocktype(TIMAX)="上海证券交易所"
blockname(TIMAX)= "上海A股"

TIMAX=TIMAX+1
blocktype(TIMAX)="深证证券交易所"
blockname(TIMAX)= "深圳A股"

TIMAX=TIMAX+1
blocktype(TIMAX)="深证证券交易所"
blockname(TIMAX)= "深证创业"

TIMAX=TIMAX+1
blocktype(TIMAX)="深证证券交易所"
blockname(TIMAX)= "中小企业"

Set b = CreateObject("Stock.Block")

FOR I=1 TO TIMAX

application.MsgOut Date &" " &Time& "条件选股....："&blocktype(I)&" 名称:"&blockname(I)

         call b.open(blockname(I),0)

           tnblockcount=b.count
            for J=0 TO tnblockcount

                   TCMARKET=b.GetStockMarket(J)
                  TCCODE=TCMARKET+b.GetStockCode(J)


                  Set Formula = marketdata.STKINDI(TCCODE,TCMARKET,"BKGXMR",0,5) 'BKGXMR为公式中的条件选股（非技术指标）

                 application.MsgOut Date &" " &Time& " "&tccode

            next

    NEXT



   application.MsgOut Date &" " &Time& "条件选股完成！"
End Sub

[此贴子已经被作者于2013-4-18 12:38:36编辑过]

主题：[求助]VBA中调用条件选股