以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=175652)
--  作者：ak47ok
--  发布时间：2020/4/22 12:54:29
--  [求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？
例如在C:\\试.txt中有以下
SZ000001
SZ000002
SH600000


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

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


非常感谢！
--  作者：yukizzc
--  发布时间：2020/4/22 15:24:43
--  

对象标识 "Stock.Block"

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

 

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

至于读取txt这些需要您自行完成
--  作者：ak47ok
--  发布时间：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
--  发布时间：2020/4/22 21:35:22
--  

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

 

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

 

 

自己几个参数都是试下就行了