VBA 调用 WshShell.popup 设置5秒关闭 5秒后未关闭

您可以使用 VBA 内置的 Sleep 函数来实现等待一定时间后关闭 WshShell.Popup 弹窗。Sleep 函数可以暂停 VBA 代码的执行，以等待指定的时间（以毫秒为单位）。

下面是一个示例代码：

Sub ShowPopup()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    ' 显示弹窗，超时时间为5秒，按钮ID为1
    WshShell.Popup "到达时间！", 5, "提示", 0 + 64
    
    ' 等待5秒后检查弹窗是否仍在前台
    Application.Wait Now + TimeValue("00:00:05")
    If WshShell.AppActivate("提示") Then
        ' 如果弹窗仍在前台，模拟按下 Enter 键关闭弹窗
        WshShell.SendKeys "{ENTER}"
    End If
End Sub

在上面的代码中，我们先使用 WshShell.Popup 方法显示一个弹窗，并将超时时间设置为5秒。然后我们使用 VBA 的 Wait 函数等待5秒后，检查弹窗是否仍在前台。如果弹窗仍在前台，我们使用 WshShell.SendKeys 方法模拟按下 Enter 键来关闭弹窗。

请注意，使用 Wait 函数会暂停 VBA 代码的执行，因此您可能需要在代码中添加错误处理来避免程序在等待期间出现任何错误。此外，使用 SendKeys 方法来模拟按键也可能会存在一些问题，例如可能会将按键发送到错误的应用程序中。因此，在实际使用中，您可能需要考虑其他方式来关闭弹窗，例如使用 API 函数来查找和关闭窗口。