| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 金字塔软件问题提交 (http://www.weistock.com/bbs/list.asp?boardid=2) ---- 板块取数的问题 (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=87575) |
| -- 作者：fengxiaoyong -- 发布时间：2015/11/21 0:41:18 -- 板块取数的问题 通过帮助文件，发件VBA的外部对象Stock.Block拥有这个GetTypeBlock(TypeName,Block) 函数，可以得到指定分类下的板块集合，但是当运行VBA提示对象不支持此属性和方法？难道帮助提到的这个函数，金字塔最新版已经取消了吗 |
| -- 作者：王锋 -- 发布时间：2015/11/21 9:56:46 -- 要看一下你的VBA代码具体是怎么写的，很多时候是用户的代码出现了某些异常后才会出现类似提示的。 建议把问题贴一下，我们也好去排查问题和给出指导意见
|
| -- 作者：fengxiaoyong -- 发布时间：2015/11/21 15:54:34 -- 用的就是你们的系统例子 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 |
| -- 作者：马良 -- 发布时间：2015/11/21 18:00:00 -- 年确定用的是3.71版本么 |
| -- 作者：王锋 -- 发布时间：2015/11/21 18:48:54 -- 用3.71 64位版本测试你给的代码，没什么问题 |
| -- 作者：fengxiaoyong -- 发布时间：2015/11/21 20:36:30 -- 我让很多测试都不行，不知道你为啥可以呢 |
| -- 作者：fengxiaoyong -- 发布时间：2015/11/21 21:21:03 -- 解决了，是版本的问题 |