VBA: ошибка автоматизации при доступе к IE «делать пока» - PullRequest
Новая
       8

VBA: ошибка автоматизации при доступе к IE «делать пока»

0 голосов
/ 22 октября 2019

Попытка запустить какой-то простой код, просто чтобы открыть сайт. Однако продолжайте получать Automation Error: The object invoked has disconnected from its clients. Код ниже. Отладчик кода переходит к выделению Do While oIE.ReadyState <> 4


Sub test()

    Set oIE = CreateObject("InternetExplorer.application")
    oIE.Visible = True

    oIE.navigate ("https://www.google.com")
    Do While oIE.ReadyState = 4: Application.Wait (Now + TimeValue("0:00:01")): Loop
    Do While oIE.ReadyState <> 4: Application.Wait (Now + TimeValue("0:00:01")): Loop

    ' example ref to DOM
    MsgBox oIE.Document.GetElementsByTagName("div").Length

End Sub
...