您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

这段代码简单，怎么没法执行？　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2013年09月27日点击数：　【收藏到本网的会员中心】

咨询内容：
Sub getcontinuouscontracts()
Dim block
Dim market

Set block = CreateObject("stock.block")

block.Open "自选股", 1

For i = 0 To block.Count - 1
block.removeat (0)
Next

market = Array("SQ", "DQ", "ZQ", "ZJ")

For i = 0 To UBound(market)
n = marketdata.GetReportCount(market(i))
For j = 0 To n - 1
Set report1 = marketdata.GetReportDataByIndex(market(i), j)
If Right(report1.Label, 2) = "00" Then
block.addstock market(i), report1.Label
End If
Next
Next

block.tosave "自选", "自选股"
MsgBox "成功筛选连续合约"
End Sub
金字塔客服：
触发了吗
用户回复：
这个只是一个过程，你要去调用它，它才能给你干活的。

如：

sub application_vbastart()

getcontinuouscontracts

end sub

就可以在vba一起动就执行你的这个过程。

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 1145508240 进行有偿编写！（不贵！点击查看价格！）

【字体：小大】【打印文章】【查看评论】

没有相关内容