以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  取不到自选股品种个数  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=184286)
--  作者：weishao
--  发布时间：2021/2/18 12:58:49
--  取不到自选股品种个数
\'取自选股品种数量:
Function getstockcount()
Set blockzxg = CreateObject("Stock.Block")
    call blockzxg.Open ("自选股",0) 
    Application.MsgOut "自选股品种个数:"&blockzxg.count()
    getstockcount=blockzxg.Count()

    \'创建Block外部对象，将对象实例置变量b中
Set b = CreateObject("Stock.Block")
\'打开市场指定分类名称的板块
call b.open("上海A股",0)
\'显示已打开板块内部数据个数
Application.MsgOut "上海A股数量:"&b.count()
\'不要忘记释放对象，不然会导致内存泄漏
Set b = nothing
End Function
图片点击可在新窗口打开查看此主题相关图片如下：自选股数0.png
图片点击可在新窗口打开查看

结果是:

自选股品种个数:0
上海A股数量:1623
--  作者：yukizzc
--  发布时间：2021/2/18 13:00:11
--  

call blockzxg.Open ("自选股",1) 

call blockzxg.Open ("自选股",2)

 

这个type参数有几种选择的，你都挨个试下就明白

 
--  作者：weishao
--  发布时间：2021/2/18 13:06:37
--  
call blockzxg.Open ("自选股",0) 改成call blockzxg.Open ("自选股",1) 可以了