VBA Inte rnet Explorer - переменные объекта исчезают

Question

Я пытаюсь изучить веб-скребинг с VBA и столкнулся с проблемой в самом первом c первом шаге.

Проблема (я думаю) в том, что после выполнения IEObject.Navigate все переменные IEObject исчезают. Поэтому я получаю сообщение об ошибке

«Ошибка времени выполнения 426»: удаленный сервер не существует или недоступен »

в строке 8. Любая помощь приветствуется.

Код:

Sub VBAWeb()

Dim IEObject As InternetExplorer
Set IEObject = New InternetExplorer
IEObject.Visible = True
IEObject.Navigate URL:="https://google.com"

Do While IEObject.Busy = True Or IEObject.ReadyState <> READYSTATE_COMPLETE
    Application.Wait Now + TimeValue("00:00:01")
Loop

Debug.Print IEObject.LocationURL

End Sub

Answer 1

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

Sub demo()

    Dim URL As String
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    URL = "https://www.microsoft.com"

    IE.Navigate URL

    Do While IE.ReadyState = 4: DoEvents: Loop  
    Do Until IE.ReadyState = 4: DoEvents: Loop   

    Debug.Print IE.LocationURL

    Set IE = Nothing

End Sub

Вы можете видеть, что объект IE был создан по-другому. Кроме того, l oop немного отличается.