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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？

   

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

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

主题：[求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？
帅哥哟，离线，有人找我吗？
ak47ok
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：27 积分：0 威望：0 精华：0 注册：2020/4/8 16:38:31 		[求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？  发帖心情 Post By：2020/4/22 12:54:29 [只看该作者]

例如在C:\试.txt中有以下
SZ000001
SZ000002
SH600000


请教如何用VBA将这TXT中的股票全部写入金字塔的"自选股"中？

要求VBA能自动将"自选股"板块中原来的内容全部清除后再写入上述内容。(其中TXT的个数是不定的)


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


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2020/4/22 15:24:43 [只看该作者]

对象标识 "Stock.Block"

Block对象实现了金字塔中板块管理的部分功能,用户可以使用该外部对象方便的进行板块管理,并可以最后保存他.

 

vba帮助信息里有这个对象，里面有添加品种的函数

至于读取txt这些需要您自行完成
 回到顶部
帅哥哟，离线，有人找我吗？
ak47ok
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：27 积分：0 威望：0 精华：0 注册：2020/4/8 16:38:31 		  发帖心情 Post By：2020/4/22 15:50:17 [只看该作者]

谢谢！
我照抄了。是针对"上海A股"的。
Sub zj10()
Set b = CreateObject("Stock.Block")
    call b.open("上海A股",0)
    msgbox b.count()
    Set b = nothing
end sub'())


这样可以显示个数。

但如何只针对 自选股
我这样修改
call b.open("自选股",0)



这不能正确结果。麻烦版主指点。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2020/4/22 21:35:22 [只看该作者]

第二个参数：0市场分类 1分类板块 2系统板块

 

市场分类：来源于在k线图右键“更换品种”--“板块”中展示的市场分类组成。
分类板块: 来源于在菜单栏“工具”--“市场与板块”--“板块”中展示的分类板块，如：连续合约板块、自选股等。
系统分类：来源于在菜单栏“工具”--“市场与板块”--“品种”中展示的分类。如“中金所”，“国内商品”

 

 

自己几个参数都是试下就行了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 02.57031 秒, 5 次数据查询