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


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

   

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


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

主题:[求助]如何用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的个数是不定的)


非常感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
ak47ok
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)



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

 回到顶部