以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  这段代码简单，怎么没法执行？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=56048)
--  作者：clivelong
--  发布时间：2013/9/2 8:22:42
--  这段代码简单，怎么没法执行？

 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
 
--  作者：rushtaotao
--  发布时间：2013/9/2 9:37:34
--  

触发了吗
--  作者：guotx2010
--  发布时间：2013/9/2 20:24:45
--  

这个只是一个过程，你要去调用它，它才能给你干活的。

 

如：

sub application_vbastart()

    getcontinuouscontracts

end sub

 

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