excel - 在 Excel 中显示一段时间的弹出窗口

Question

我正在尝试生成一个在给定 WaitTime 后关闭的弹出窗口片刻之间。

我咨询了this链接和 this关联。

我尝试应用“VBA Excel macro message box auto close”中的方法；我的代码如下:

Sub TestSubroutine()

Dim TemporalBox As Integer
Dim WaitTime As Integer
Dim WScriptShell As Object

Set WScriptShell = CreateObject("WScript.Shell")

WaitTime = 1
TemporalBox = WScriptShell.Popup("The message box will close in 1 second.", _
WaitTime, "File processed")

End Sub

弹出窗口会显示，但它不会在一秒钟后关闭。

编辑#1

基于@Skip Intro 评论，我更新了代码:

Sub TestSubroutine()

Dim WaitTime As Integer

WaitTime = 1
CreateObject("WScript.Shell").Popup "The message box will close in 1 second.", _
WaitTime, "File processed"

End Sub

但是，这并不能解决原始问题，弹出窗口在 1 秒后不会关闭。

编辑#2

这是@Glitch_Doctor 建议的代码，但它仍然不起作用:

Sub TestSubroutine()

Dim TemporalBox As Integer
Dim WaitTime As Integer
Dim WScriptShell As Object
Dim test

Set WScriptShell = CreateObject("WScript.Shell")

WaitTime = 1
Select Case TemporalBox = WScriptShell.Popup("The message box will close in 1 second.", _
WaitTime, "File processed")
    Case 1, -1
End Select

End Sub

Answer 1

我终于找到了一个非常简单的解决方案——感谢@Orphid，在下面的 thread 中查看他的答案.

我没有解决与原始代码相关的具体问题，但我设法创建了一个在指定时间段后关闭的 PopUp。代码如下:

Sub subClosingPopUp(PauseTime As Integer, Message As String, Title As String)

Dim WScriptShell As Object
Dim ConfigString As String

Set WScriptShell = CreateObject("WScript.Shell")
ConfigString = "mshta.exe vbscript:close(CreateObject(""WScript.Shell"")." & _
               "Popup(""" & Message & """," & PauseTime & ",""" & Title & """))"

WScriptShell.Run ConfigString

End Sub

这工作得很好。