以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://www.weistock.com/bbs/list.asp?boardid=2)
----  能导入自选股吗？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=142822)
--  作者：15601951291
--  发布时间：2016/11/16 11:09:26
--  能导入自选股吗？
我从被的软件以excel表格形式导出了一些基本面筛选的股票，想导入到金字塔做测试，但是个股数量太多，设置较为麻烦，有没有什么方法可以直接自己导入自选股，谢谢！
--  作者：shq
--  发布时间：2016/11/16 11:27:29
--  
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=52196&authorid=0&page=0&star=1

建议参照此帖，若不能解决问题，请将疑问及时跟帖。
--  作者：15601951291
--  发布时间：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

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

这里面哪里调用了金字塔的外部对象，没看到相应表达啊
--  作者：yukizzc
--  发布时间：2016/11/16 12:57:25
--  

在金字塔内的，工具-市场与板块

这边添加好和excel里对应的

分类名称 板块名称
自选股 我的股票

--  作者：15601951291
--  发布时间：2016/11/16 13:14:33
--  

OK了

我想问下，这个在哪里体现了和金字塔这边的对接，这个代码Set Block = CreateObject("Stock.Block")
就自动执行到金字塔了？
--  作者：15601951291
--  发布时间：2016/11/16 14:01:57
--  

从自选股中删除一个股票的代码是啥

block.removestock好像不行，望指教，我要在代码里批量删除，再批量导入，需要改写下代码
--  作者：15601951291
--  发布时间：2016/11/16 18:09:00
--  

每次更新，原来的就删掉了，Ok，谢谢