在vbscript中自动关闭MsgBox？

Question

我正在使用VBScript在excel上编写一些自动化代码。我在代码中有一个MsgBox()，我正在寻找一种方法来自动关闭MsgBox()创建的弹出窗口而无需人工干预。程序执行将从那里继续。

Answer 1

纯VBScript解决方案是the .PopUp method。

Answer 2

我的评论为您提供了搜索和找到可行答案的提示。但是为了节省您的时间，这里有一些见解。

• 这篇文章展示了如何manupulate MSGBOX in VB。

• 这是任何人都可以想到的最好的VBA方式。

  1. 创建表单
  2. 将其用作MSGBOX
  3. 添加计时器
  4. 给定已用时间（空闲），关闭表格。

-

• 另一种方法Reference。这使用Pop-Up框作为MSGBOX。

代码：

Sub Test1()
 Dim AckTime As Integer, InfoBox As Object

 Set InfoBox = CreateObject("WScript.Shell")
 AckTime = 3
 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
 AckTime, "This is your Message Box", 0)

 Case 1, -1
  Exit Sub
 End Select
End Sub