通过帮助文件,发件VBA的外部对象Stock.Block拥有这个
GetTypeBlock(TypeName,Block) 函数,可以得到指定分类下的板块集合,但是当运行VBA提示对象不支持此属性和方法?难道帮助提到的这个函数,金字塔最新版已经取消了吗
要看一下你的VBA代码具体是怎么写的,很多时候是用户的代码出现了某些异常后才会出现类似提示的。
建议把问题贴一下,我们也好去排查问题和给出指导意见
用的就是你们的系统例子Dim d '创建一个变量
Set b = CreateObject("Stock.Block")
'创建Array外部对象,将对象实例置变量d中
Set d = CreateObject("Stock.ArrayString")
'打开市场指定分类名称的板块
call b.open("上海A股",0)
'显示已打开板块内部数据个数
msgbox b.count()
'显示数量并打印输出所有板块
call b.GetTypeBlock("概念",d)
for i = 0 to d.count-1
application.MsgOut d.getat(i)
next