Автоматически закрыть MsgBox в VBScript?

Question

Я использую VBScript для кодирования автоматизации на Excel. у меня есть MsgBox() в коде, и я ищу способ закрыть всплывающее окно, созданное MsgBox() автоматически без вмешательства человека. Выполнение программы будет продолжено с этого момента.

Answer 1

Мой комментарий предоставил вам советы для поиска и поиска возможных ответов. Однако, чтобы сэкономить ваше время, вот некоторые идеи.

• Этот пост показывает, как вы можете манипулировать MSGBOX в VB.

• Вот наилучший из возможных способов, который можно представить с точки зрения 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

Answer 2

Чистым решением VBScript является метод.PopUp.