主题：能导入自选股吗？

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

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

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

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

OK了

我想问下，这个在哪里体现了和金字塔这边的对接，这个代码Set Block = CreateObject("Stock.Block")
就自动执行到金字塔了？

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

block.removestock好像不行，望指教，我要在代码里批量删除，再批量导入，需要改写下代码

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