标题：取不到自选股品种个数

1楼

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

2楼

yukizzc 发表于：2021/2/18 13:00:11

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

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

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

3楼

weishao 发表于：2021/2/18 13:06:37

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

共3 条记录, 每页显示 10 条, 页签: [1]