欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 取不到自选股品种个数

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有1709人关注过本帖树形打印复制链接

主题:取不到自选股品种个数

帅哥哟,离线,有人找我吗?
weishao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:256 积分:0 威望:0 精华:0 注册:2020/6/10 14:05:31
取不到自选股品种个数  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2021/2/18 13:00:11 [只看该作者]

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

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
weishao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:256 积分:0 威望:0 精华:0 注册:2020/6/10 14:05:31
  发帖心情 Post By:2021/2/18 13:06:37 [只看该作者]

call blockzxg.Open ("自选股",0) 改成call blockzxg.Open ("自选股",1) 可以了

 回到顶部