VBA 调用 WshShell.popup 弹窗 到达时间 不关闭

您可以使用WshShell.Popup方法来显示一个弹窗，但是默认情况下，弹窗会在一定时间后自动关闭。如果您想让弹窗一直保持显示，可以在调用Popup方法时指定一个非零的超时时间，并在超时时间到达时指定一个非零的按钮ID，这样弹窗就不会自动关闭了。

下面是一个示例代码：

Sub ShowPopup()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    ' 显示弹窗，超时时间为1000秒，按钮ID为1
    WshShell.Popup "到达时间！", 1000, "提示", 0 + 64
    
    ' 无限循环，直到用户按下按钮
    Do While True
        If WshShell.AppActivate("提示") Then
            ' 检查弹窗是否仍在前台
            Exit Do
        End If
    Loop
End Sub

在上面的代码中，我们将超时时间设置为1000秒，按钮ID设置为1，这意味着弹窗不会自动关闭，并且用户必须按下按钮才能关闭弹窗。然后我们使用一个无限循环来等待用户按下按钮，直到弹窗被关闭为止。

请注意，如果用户不按下按钮，弹窗将一直保持显示，这可能会影响用户体验。因此，在实际使用中，您可能需要考虑其他方式来关闭弹窗，例如在用户按下按钮之前自动关闭弹窗。

相关问题

VBA 调用 WshShell.popup 定时器失效

WshShell.Popup 方法不支持在弹出窗口中添加定时器，但您可以通过 VBA 内置的 Timer 函数来实现类似的功能。

下面是一个示例代码：

Sub ShowPopup()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    ' 显示弹窗，超时时间为1000秒，按钮ID为1
    WshShell.Popup "到达时间！", 1000, "提示", 0 + 64
    
    Dim StartTime As Double
    StartTime = Timer
    
    Do While True
        ' 检查弹窗是否仍在前台
        If WshShell.AppActivate("提示") Then
            ' 如果已经超过10秒，自动关闭弹窗
            If Timer - StartTime > 10 Then
                WshShell.SendKeys "{ENTER}"
                Exit Do
            End If
        End If
    Loop
End Sub

在上面的代码中，我们先使用 WshShell.Popup 方法显示一个弹窗，并将超时时间设置为1000秒。然后我们使用 Timer 函数获取当前时间，并在一个无限循环中检查弹窗是否仍在前台。如果弹窗已经超过10秒，我们使用 WshShell.SendKeys 方法模拟按下 Enter 键来关闭弹窗。这样就实现了一个类似于定时器的功能。

请注意，使用 SendKeys 方法来模拟按键可能会存在一些问题，例如可能会将按键发送到错误的应用程序中。因此，在实际使用中，您可能需要考虑其他方式来关闭弹窗，例如使用 API 函数来查找和关闭窗口。

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 函数来查找和关闭窗口。