Application_Close事件不是每次都会执行求解

人间四月天

我在Function模块中写了这个事件，但是关闭金字塔的时候，不是每次都会执行，随机的，偶尔会弹出系统退出的窗口，不知道什么原因（VBA是处于运行中的）

[Visual Basic] 复制代码

Sub Application_Close()
       msgbox "系统退出"
End Sub

技术006

除非是你的vba环境没有开启。或者关闭时是停止状态，否者不会不执行的。

人间四月天

技术006 发表于 2024-10-17 14:24
除非是你的vba环境没有开启。或者关闭时是停止状态，否者不会不执行的。

太神奇了，是开启状态，其他的代码段都正常执行的

人间四月天

技术006 发表于 2024-10-17 14:24
除非是你的vba环境没有开启。或者关闭时是停止状态，否者不会不执行的。

我把代码放到Macro里面看看，应该不会啊，金字塔下面不是代码放在哪个模块都不影响的啊

技术006

人间四月天 发表于 2024-10-17 14:51
我把代码放到Macro里面看看，应该不会啊，金字塔下面不是代码放在哪个模块都不影响的啊

正常关闭软件一定会触发关闭事件动作的，这个你可以在跟踪下规律

人间四月天

技术006 发表于 2024-10-17 15:02
正常关闭软件一定会触发关闭事件动作的，这个你可以在跟踪下规律

好像在多屏电脑上就会时不时出现

技术006

和屏幕应该无关，我测试环境下就是多屏的。并且关闭时一个事件动作。和显示输出设备也无关

人间四月天

技术006 发表于 2024-10-18 20:00
和屏幕应该无关，我测试环境下就是多屏的。并且关闭时一个事件动作。和显示输出设备也无关

我发现一个问题，会不会是Application_Close事件发生后，没有等到msgbox "系统退出"执行完毕他就退出了，能不能给Application_Close事件执行过程增加一个delay呢，我试了代码错误可能没写对

人间四月天

技术006 发表于 2024-10-18 20:00
和屏幕应该无关，我测试环境下就是多屏的。并且关闭时一个事件动作。和显示输出设备也无关

我看Application.Wait也不行，没有这个方法

技术006

本地测试没有问题。怀疑你是的代码中存在异常情况造成了一场退出。

Sub APPLICATION_Close()
        Dim startTime, currentTime, timeDifference
        Dim fso, file
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("D:\time_log.txt", 2, True)
       
        ' 获取当前时间作为起始时间
        startTime = Now
       
        Do While True
            ' 获取当前时间
            currentTime = Now
           
            ' 写入当前时间到文件
            file.WriteLine "当前时间: " & currentTime
           
            ' 计算时间差
            timeDifference = DateDiff("s", startTime, currentTime)
           
            ' 如果已经过了60秒，则退出循环
            If timeDifference >= 60 Then Exit Do
           
        Loop
       
        ' 关闭文件
        file.Close
        msgbox "测试"
End Sub