以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA如何清空版块  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=183985)
--  作者：Guanx
--  发布时间：2021/1/20 0:30:21
--  VBA如何清空版块
公式中：ClearBlock(\'自定\');正确
VBA中怎样清除版块，
语法错误：Call ClearBlock(\'自定\')
类型不匹配：Call ClearBlock("自定")
[此贴子已经被作者于2021/1/20 0:31:29编辑过]
--  作者：yukizzc
--  发布时间：2021/1/20 9:37:22
--  
字符串用""不是\'\'
--  作者：Guanx
--  发布时间：2021/1/20 11:45:58
--  
错在哪里？
--  作者：Guanx
--  发布时间：2021/1/20 11:49:46
--  
还是提示数据类型不匹配
--  作者：yukizzc
--  发布时间：2021/1/20 13:08:10
--  

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

 

你要先创建对象

[此贴子已经被作者于2021/1/20 13:14:00编辑过]
--  作者：Guanx
--  发布时间：2021/1/20 14:19:33
--  
谢谢
--  作者：Guanx
--  发布时间：2021/1/20 18:26:49
--  
Set B = CreateObject("Stock.Block")    创建版块外部对象，正确
call b.open("自定1",1)                         打开版块正确
msgbox b.count()                               输出版块内数量正确
Call B.ClearBlock("自定","自定1")           清空版块 正确

只有添加不成功
Call B.AddToBlock("NI03","自定1")        对象不支持属性和方法
需要加市场代码吗？如何加？
--  作者：yukizzc
--  发布时间：2021/1/21 9:27:28
--  
 

AddStock 方法

AddStock(Market,Code)

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

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

 

参数

说明

Market

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

Code

品种代码
--  作者：yukizzc
--  发布时间：2021/1/21 9:29:39
--  
你这函数写错，参数写错了都
--  作者：Guanx
--  发布时间：2021/1/21 19:43:49
--  
Set Block1 = CreateObject("Stock.Block")
Call Block1.ClearBlock("自定","自定1")
Call Block1.AddStock("SQ","AG02")
最后一句没效果

没有具体对象，如何指定具体版块