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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → 板块取数的问题

   

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

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

主题：板块取数的问题
帅哥哟，离线，有人找我吗？
fengxiaoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：65 威望：0 精华：0 注册：2012/1/6 12:53:19 		板块取数的问题  发帖心情 Post By：2015/11/21 0:41:18 [只看该作者]

通过帮助文件，发件VBA的外部对象Stock.Block拥有这个GetTypeBlock(TypeName,Block) 函数，可以得到指定分类下的板块集合，但是当运行VBA提示对象不支持此属性和方法？难道帮助提到的这个函数，金字塔最新版已经取消了吗

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2015/11/21 9:56:46 [只看该作者]

要看一下你的VBA代码具体是怎么写的，很多时候是用户的代码出现了某些异常后才会出现类似提示的。

建议把问题贴一下，我们也好去排查问题和给出指导意见

 

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
fengxiaoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：65 威望：0 精华：0 注册：2012/1/6 12:53:19 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
马良
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：1516 积分：229 威望：0 精华：0 注册：2012/3/30 12:40:56 		  发帖心情 Post By：2015/11/21 18:00:00 [只看该作者]

年确定用的是3.71版本么

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2015/11/21 18:48:54 [只看该作者]

用3.71 64位版本测试你给的代码，没什么问题


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
fengxiaoyong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：65 威望：0 精华：0 注册：2012/1/6 12:53:19 		  发帖心情 Post By：2015/11/21 20:36:30 [只看该作者]

我让很多测试都不行，不知道你为啥可以呢

 回到顶部
帅哥哟，离线，有人找我吗？
fengxiaoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：94 积分：65 威望：0 精华：0 注册：2012/1/6 12:53:19 		  发帖心情 Post By：2015/11/21 21:21:03 [只看该作者]

解决了，是版本的问题

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.01367 秒, 5 次数据查询