shell - 在vbscript中自动关闭MsgBox？

Question

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

Answer 1

纯 VBScript 解决方案是.PopUp 方法。

Answer 2

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

• 这篇文章展示了如何在 VB 中操作 MSGBOX。

• 这是任何人都能想到的关于 VBA 的最佳方式。

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

--

• 另一种方法参考。这使用一个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