Как я могу изменить это утверждение, чтобы добавить еще один If?

Question

Я использую следующий код, чтобы найти активное окно "Inte rnet Explorer" и взаимодействовать с ним. Я пытаюсь добавить всплывающее окно сообщения, если у пользователя нет открытого окна проводника inte rnet, в отличие от сообщения об ошибке VBA. Вот мой текущий код:

For Each GetIE In CreateObject("Shell.Application").Windows() 'Loop to find
If (Not GetIE Is Nothing) And GetIE.Name = "Internet Explorer" Then Exit For 'Found!
Next GetIE

И то, что я хочу добавить, по сути:

If Not GetIE.Name = "Internet Explorer" Then
MsgBox ("You do not have an active Internet Explorer window open")
End IF

Но когда я добавил это прямо под первым кодом, он не работал и дал мне ошибка. Я не написал верхний раздел и не уверен, как изменить его, чтобы реализовать окно сообщения. Любая помощь приветствуется.

Answer 1

Попробуйте этот подход, пожалуйста:

Sub testFindIE()
 Dim GetIE As Object, boolFound As Boolean
 For Each GetIE In CreateObject("Shell.Application").Windows()
    If (Not GetIE Is Nothing) And GetIE.Name = "Internet Explorer" Then
        boolFound = True
        Exit For
    End If
 Next GetIE
 If Not boolFound Then MsgBox "You do not have an active Internet Explorer window open"
End Sub