vba & Internet Explorer 11

[Puffi.Muffi]

Доброго дня, уважаемые программисты!

Подскажите, пожалуйста, как при помощи VBA определить загрузилась ли страничка в Internet Explorer 11 ?
для того чтобы потом с помощью SendKeys делать различные манипуляции.

Sub ei ()
Dim Ie As Object
Dim WebUrl As String      
Set Ie = CreateObject("InternetExplorer.Application") 
WebUrl = "https://www.google.co.uk/#q=flowers"
With Ie
.Silent = True 
.Visible = True 
.Navigate WebUrl
End With
End Sub

Пробовала в конец подставить:

With Ie
Do While .Busy
Application.Wait (Now + TimeValue("0:00:05"))
Loop
End With

Но простой проверкой выяснилось, что в то время пока грузится страничка, Ie не занят:

If Ie.Busy Then
MsgBox "busy"
Else
MsgBox "not busy"
End If

Затем пыталась:

With Ie
Do
Application.Wait (Now + TimeValue("0:00:01"))
Loop Until .READYSTATE <> READYSTATE.READYSTATE_COMPLETE
End With

Получаем: run-time error -2147417848 (80010108)
Automation error
The object invoked has disconnected from its clients.

Если вставляем

MsgBox Ie.ReadyState

то получаем "0".

Не знаете поддерживается ли в Internet Explorer 11 .Busy и(или) .ReadyState ? Чем они отличаются? Как можно решить задачу определения загрузки странички?

Буду благодарна за любые идеи.
Puffi.Muffi

[Puffi.Muffi]

... похоже с "https://www.google.co.uk/#q=flowers"
.Busy работает, может от сайта зависит?

[EducatedFool]

Надо проверять и то, и другое:

With Ie
' ...
.Navigate WebUrl

While .busy Or (.readyState <> 4): DoEvents: Wend ' ждем, пока загрузится страница

' а теперь можно к документу обращаться
End With

подробнее - здесь: http://excelvba.ru/code/GetWebPageText

[Puffi.Muffi]

EducatedFool, спасибо за ответ.

Но тут дело в том, что когда страничка грузится статус Not Busy.

А если оставить только readyState, то:
run-time error -2147417848 (80010108)
Automation error
The object invoked has disconnected from its clients.

Не знаете, может стоит добавить Reference какую-нибудь?
Почему с одними страничками в интернете код работает, а с другими нет? в чем разница?

[doober]

Выход всегда есть, даже через одно место.
что и получил в итоге

Sub ei()
    Dim Ie As Object, reviewDialog
    Dim WebUrl As String
    Set Ie = CreateObject("InternetExplorer.Application")
    WebUrl = "https://www.google.co.uk/#q=flowers"
    With Ie
        .Silent = True
        .Visible = True
        .Navigate "about:blank"
        Application.Wait (Now + TimeValue("0:00:01"))
        .Navigate WebUrl

        Do While .Document Is Nothing
            DoEvents
            Application.Wait (Now + TimeValue("0:00:01"))
        Loop

    End With
    On Error Resume Next
    Set reviewDialog = Ie.Document.getElementById("reviewDialog")
    Do While reviewDialog Is Nothing
        DoEvents
        Application.Wait (Now + TimeValue("0:00:01"))
        Set reviewDialog = Ie.Document.getElementById("reviewDialog")
    Loop
End Sub

[Puffi.Muffi]

Doober, спасибо за предложенные обходы.

С моим сайтом не работает.
Просто зависает на очень длительный срок, хотя страничка уже загрузилась.
Сайт не могу скинуть.

Может это какие-то настройки безопасности?

[doober]

Сообщение от Puffi.Muffi

Doober, спасибо за предложенные обходы.
С моим сайтом не работает.

Ищите в коде страницы элемент с вашим ид и замените в Ie.Document.getElementById("reviewDialog")

[vorchunder]

Привет doober.
у меня аналогичная проблема. можно сказать один в один.
на Win64,Off20007,IE11
сайт который не получается из скрипта проверить окончание загрузки - aliexpress(точка)com

на других сайтах предложенный тобой пример отлично работает, на этом нет.
заменить id на нужный и всё ок.
а там как будто не находит эти id. как будто их и нет.

есть идеи как побороть?

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

может дело в скриптах сайта? делают что-то нехорошее...

[vorchunder]

убрал из доверенных сайтов - заработало.