在vbscript中自動關閉MsgBox？

Question

我使用VBScript在excel上編寫一些自動化代碼。我在代碼中有MsgBox()，並且正在尋找一種方法來自動關閉由MsgBox()創建的彈出窗口，無需人工干預。程序執行將從那裏繼續。

Answer 1

我的評論爲您提供了搜索和找出可行答案的提示。但爲了節省您的時間，這裏有一些見解。

• 此帖子顯示了您可能會如何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 

Answer 2

純的VBScript溶液是the .PopUp method。