shell - 在vbscript中自动关闭MsgBox？

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

最佳答案

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

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

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

创建表单

将其用作 MSGBOX

添加计时器

给定耗时(空闲)关闭表单。

——

另一种方法 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

关于shell - 在vbscript中自动关闭MsgBox？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14105157/