能导入自选股吗？ - 金字塔软件问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → 能导入自选股吗？

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

共有3049人关注过本帖树形打印复制链接主题：能导入自选股吗？

15601951291

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：153 积分：0 威望：0 精华：0 注册：2016/8/22 12:19:37

能导入自选股吗？ 发帖心情

Post By：2016/11/16 11:09:26 [只看该作者]

我从被的软件以excel表格形式导出了一些基本面筛选的股票，想导入到金字塔做测试，但是个股数量太多，设置较为麻烦，有没有什么方法可以直接自己导入自选股，谢谢！

shq

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：2266 积分：0 威望：0 精华：0 注册：2016/11/15 9:18:08

Post By：2016/11/16 11:27:29 [只看该作者]

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=52196&authorid=0&page=0&star=1

建议参照此帖，若不能解决问题，请将疑问及时跟帖。

————————————————————

90%问题均可在历史帖中重现，请善用检索

————————————————————

VIP认证的好处: 帖子将更好更快地被处理

————————————————————

15601951291

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：153 积分：0 威望：0 精华：0 注册：2016/8/22 12:19:37

Post By：2016/11/16 12:29:19 [只看该作者]

Sub MAIN()
    Set Block = CreateObject("Stock.Block")
    For i = 4 To Range("A65536").End(xlUp).Row
        代码 = Cells(i, 1)
        市场 = Cells(i, 2)
        分类名称 = Cells(2, 1)
        板块名称 = Cells(2, 2)
        Block.AddStock 市场, 代码
    Next
    Block.ToSave 分类名称, 板块名称
End Sub

执行了这个模块，但是金字塔没有添加上那几个案例上的品种啊

这里面哪里调用了金字塔的外部对象，没看到相应表达啊