金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 554|回复: 4

vba

[复制链接]

436

主题

2581

帖子

2591

积分

Rank: 2

等级: 标准版

注册:
2023-2-16
曾用名:
发表于 2024-4-19 19:31 | 显示全部楼层 |阅读模式
VBA在什么情况下会被自动关闭?回vba测中发现有时候VBA被关闭了  无法执行动作 要手动去启动一下才行
回复

使用道具 举报

1

主题

843

帖子

853

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
发表于 2024-4-19 22:22 | 显示全部楼层
那应该是执行时遇到内存错误了,如果你那边的代码执行能稳定或频繁重现,建议将测试代码发给我们,我们这边跟踪一下看看
回复

使用道具 举报

436

主题

2581

帖子

2591

积分

Rank: 2

等级: 标准版

注册:
2023-2-16
曾用名:
 楼主| 发表于 2024-4-19 22:30
技术015 发表于 2024-4-19 22:22
那应该是执行时遇到内存错误了,如果你那边的代码执行能稳定或频繁重现,建议将测试代码发给我们,我们这边 ...


Sub delk_Block()
    Set Block = CreateObject("Stock.Block")
    Dim my_Array
    Set my_Array = CreateObject("Stock.ArrayString")
       
        call Block.GetTypeBlock("自选",my_Array)

    for i = 0 to my_Array.count-1
         call Block.open(my_Array.getat(i),1)
         if Block.Count()=0 then
            application.MsgOut "删除:"&my_Array.getat(i)
            call Block.DeleteBlock ("自选",my_Array.getat(i))
         end if      
    next
    set Block = nothing
    set my_Array = nothing

end sub

436

主题

2581

帖子

2591

积分

Rank: 2

等级: 标准版

注册:
2023-2-16
曾用名:
 楼主| 发表于 2024-4-19 22:31 | 显示全部楼层
技术015 发表于 2024-4-19 22:22
那应该是执行时遇到内存错误了,如果你那边的代码执行能稳定或频繁重现,建议将测试代码发给我们,我们这边 ...

是偶尔发现不PY怎么没执行了 点开VBA代码发现他是可以编辑的状态·
回复

使用道具 举报

436

主题

2581

帖子

2591

积分

Rank: 2

等级: 标准版

注册:
2023-2-16
曾用名:
 楼主| 发表于 2024-4-19 22:32 | 显示全部楼层
技术015 发表于 2024-4-19 22:22
那应该是执行时遇到内存错误了,如果你那边的代码执行能稳定或频繁重现,建议将测试代码发给我们,我们这边 ...

旧版在这里双击可以关闭这些  新版不行了好像?

截图202404192231561710.png
回复

使用道具 举报

436

主题

2581

帖子

2591

积分

Rank: 2

等级: 标准版

注册:
2023-2-16
曾用名:
 楼主| 发表于 2024-4-19 23:26 | 显示全部楼层
def init(context):
def before_trading (context):
两个定义一样的内容会不会冲突。用来防止没有人工重启运行
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-16 06:53 , Processed in 0.320872 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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