标题：[求助]如何用VBA将指定TXT中的股票全部写入金字塔的自选股中？

1楼

ak47ok 发表于：2020/4/22 12:54:29

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

SZ000001

SZ000002

SH600000

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

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

非常感谢！

2楼

yukizzc 发表于：2020/4/22 15:24:43

对象标识 "Stock.Block"

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

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

至于读取txt这些需要您自行完成

3楼

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)

这不能正确结果。麻烦版主指点。谢谢！

4楼

yukizzc 发表于：2020/4/22 21:35:22

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

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

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

共4 条记录, 每页显示 10 条, 页签: [1]