金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 1774|回复: 9

关于VBA中复制版块问题

[复制链接]

56

主题

221

帖子

231

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
发表于 2023-6-27 15:20 | 显示全部楼层 |阅读模式
代码目的:每天更新品种。
在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




回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-27 15:24 | 显示全部楼层
        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
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-27 15:24 | 显示全部楼层
上海A股参数是0
你一个个试数字就能看到这个count
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

56

主题

221

帖子

231

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-6-27 16:33 | 显示全部楼层
资深技术02 发表于 2023-6-27 15:24
上海A股参数是0
你一个个试数字就能看到这个count

啥意思,没明白?能给我写一下正确的代码不?
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-27 16:35 | 显示全部楼层
Call b2.open("上海A股",0)

上面代码就是可以的,唯一要改就是这里数字是0参数
你参数从1改成0就可以了其他都不用变的
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-27 17:20 | 显示全部楼层
第二个参数的含义可以看下面这个

type        int        0市场分类 1分类板块 2系统板块
注:
市场分类:来源于在k线图右键“更换品种”--“市场”中展示的分类。例如:上海期货、深圳A股等
分类板块: 来源于在菜单栏“工具”--“市场与板块”--“板块”中展示的板块,如:地域中的”北京、上海“,自选中的"自选股"等。
系统分类:来源于在菜单栏“工具”--“市场与板块”--“品种”中展示的分类。如“中金所”,“国内商品”
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

56

主题

221

帖子

231

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-6-27 17:23 | 显示全部楼层
资深技术02 发表于 2023-6-27 17:20
第二个参数的含义可以看下面这个

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

收到,明白了。
回复

使用道具 举报

56

主题

221

帖子

231

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-6-27 17:44 | 显示全部楼层
105130 发表于 2023-6-27 17:23
收到,明白了。

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

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-28 08:57 | 显示全部楼层
本帖最后由 资深技术02 于 2023-6-28 08:59 编辑

1、这个我们查下吧
2、没有行情品种不会执行程序的,你可以加载运行一个下市品种自己测下就会明白
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-6-28 09:09 | 显示全部楼层
你看下这里总数也是5000多的,你看下这三个都是多少你那边呢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号? 微信登录

x
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 微信登录

本版积分规则

手机版|小黑屋|上海金之塔信息技术有限公司 ( 沪ICP备13035422号 )

GMT+8, 2024-11-16 11:36 , Processed in 0.312042 second(s), 23 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表