关于VBA中复制版块问题

105130

代码目的：每天更新品种。
在VBA中如下代码去复制：系统内分类：SH 上海证券交易所(SSE)，板块：上海A股        中的个股，并加入到分类：自选  板块：TT1
结果是无法复制，运行后，TT1板块为空，如何复制？

是不是 "上海A股" 这个在系统内认为不是板块，所以用open无法取得数据？

请问如何解决？

Sub tt1()
        Set b1 = CreateObject("stock.block")
        Call b1.CreateBlock("自选","tt1")
        Call b1.open("tt1",1)

        Set b2 = CreateObject("stock.block")
        Call b2.open("上海A股",1)
        For i = 0 To b2.Count()-1
        Call b1.AddStock(b2.GetStockMarket(i),b2.GetStockCode(i))       
        Next
          Call b1.ToSave("自选","tt1")
          Call b1.ReFurbishView()

        Set b1 = Nothing       
        Set b2 = Nothing
End sub

资深技术02

        Set b1 = CreateObject("stock.block")
        Call b1.CreateBlock("自选","tt1")
        Call b1.open("tt1",1)

        Set b2 = CreateObject("stock.block")
        Call b2.open("上海A股",0)
        Application.MsgOut b2.Count()
        For i = 0 To b2.Count()-1
        Call b1.AddStock(b2.GetStockMarket(i),b2.GetStockCode(i))      
        Next
          Call b1.ToSave("自选","tt1")
          Call b1.ReFurbishView()

        Set b1 = Nothing      
        Set b2 = Nothing

资深技术02

上海A股参数是0
你一个个试数字就能看到这个count

105130

资深技术02 发表于 2023-6-27 15:24
上海A股参数是0
你一个个试数字就能看到这个count

啥意思，没明白？能给我写一下正确的代码不？

资深技术02

Call b2.open("上海A股",0)

上面代码就是可以的，唯一要改就是这里数字是0参数
你参数从1改成0就可以了其他都不用变的

资深技术02

第二个参数的含义可以看下面这个

type        int        0市场分类 1分类板块 2系统板块
注：
市场分类：来源于在k线图右键“更换品种”--“市场”中展示的分类。例如：上海期货、深圳A股等
分类板块: 来源于在菜单栏“工具”--“市场与板块”--“板块”中展示的板块，如：地域中的”北京、上海“，自选中的"自选股"等。
系统分类：来源于在菜单栏“工具”--“市场与板块”--“品种”中展示的分类。如“中金所”，“国内商品”

105130

资深技术02 发表于 2023-6-27 17:20
第二个参数的含义可以看下面这个

type        int        0市场分类 1分类板块 2系统板块

收到，明白了。

105130

105130 发表于 2023-6-27 17:23
收到，明白了。

还有问题：
问题1：我复制了版块：上海A股、上海科创、深圳A股、深圳创业，发现只有4200多个交易品种，实际同花顺显示有5000多个交易品种，漏了哪个？
另外，北交所的交易品种在哪里？
问题2：上述版块中有当日没有交易的品种，如何在后台预警中剔除掉，代码怎么写？
if islastbar and 当日没有交易信号(如何写) then begin
    exit;
end

资深技术02

1、这个我们查下吧
2、没有行情品种不会执行程序的，你可以加载运行一个下市品种自己测下就会明白

资深技术02

你看下这里总数也是5000多的，你看下这三个都是多少你那边呢