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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → VBA如何清空版块

   

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

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

主题：VBA如何清空版块
帅哥哟，离线，有人找我吗？
yukizzc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2021/1/20 9:37:22 [显示全部帖子]

字符串用""不是''

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


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2021/1/20 13:08:10 [显示全部帖子]

Set b = CreateObject("Stock.Block")
call b.ClearBlock("自选","自选股")

 

你要先创建对象

[此贴子已经被作者于2021/1/20 13:14:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2021/1/21 9:27:28 [显示全部帖子]

 

AddStock 方法

AddStock(Market,Code)

添加指定品种到板块对象中

返回值：若添加成功返回1 否则返回0

 

参数

说明

Market

市场标识名称,例如"SH"表示上海市场

Code

品种代码

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


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2021/1/21 9:29:39 [显示全部帖子]

你这函数写错，参数写错了都

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


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2021/1/21 19:48:06 [显示全部帖子]

看范例，调用open方法把板块数据加载到b对象中, 最后你还要使用tosave方法进行保存，建议你看下帮助-vba编程信息找到block对象，先实例运行一遍自己多看看效果加深理解

示例：

'创建Block外部对象，将对象实例置变量b中

Set b = CreateObject("Stock.Block")

 

'打开市场指定分类名称的板块

call b.open("上海A股",0)

 

'显示已打开板块内部数据个数

msgbox b.count()

 

'不要忘记释放对象，不然会导致内存泄漏

Set b = nothing
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06250 秒, 6 次数据查询