Обновление данных в "InternetExplorer"

[Скрипт]

Вот невзаимосвязанные фрагменты кода из моего кода:

    Dim myIE As SHDocVw.InternetExplorer
    Set myIE = CreateObject(class:="InternetExplorer.Application")
    myIE.Visible = True
    myIE.Navigate URL:=myURL
    Set mySite = myIE.Document
    myButton.Click

В конце я нажал с помощью кода на кнопку, но в "myIE" данные остаются о том сайте, на котором "Internet Explorer" был до нажатия кнопки, хотя на мониторе отображается новый сайт.

Как сделать так, чтобы "myIE" был связан с новым сайтом?


Позже добавлено

Оказывается, после команды "myButton.Click" нужно подождать некоторое время, пока сайт отобразится на мониторе, а команда:

    Do While myIE.readyState <> READYSTATE_COMPLETE
        'Останавливаем работу процедуры на 1 секунду,
            'чтобы не тормозить работу всего компьютера,
            'т.к. циклы тормозят работу компьютера.
        Sleep dwMilliseconds_In:=1000
    Loop

не работает в этом случае.

Нужно теперь придумать, как определить, что страница загружена после нажатия кнопки.

[doober]

Если сайт не секрет,выложите ссылку.
Как вариант ,ждать в цикле до смены заголовка страницы.
Я такое практиковал

[Скрипт]

Сайт любой можно использовать, где есть элемент управления "поле" (html-тег "input"). В него вводим текст и нажимаем кнопку, после чего открывается новая страница. Я сейчас изучаю работу с "Internet Explorer" в VBA, а не конкретно пишу какую-то задачу.
Вот отсюда можно взять ссылку на сайт (в сообщении #1):
http://www.programmersforum.ru/showthread.php?t=239721
В этой теме есть задание и если его делать, то при вводе текста в поле поиска и нажатии кнопки (справа от поля в виде лупы), открывается другая страница. Вот у меня как раз на этом месте сейчас проблема - у меня переменная "myIE" брала данные с предыдущей страницы.


Да, у меня тоже возникла идея ждать, когда сменится содержимое сайта, я решил ждать, когда сменится адрес сайта в адресной строке. Сейчас пришла идея использовать события - у "Internet Explorer" есть события. Пока столкнулся с проблемой: при возникновении события замедляется работа кода. Буду смотреть, что делать дальше.

[doober]

Например так

Dim IE  As Object
Sub Start1()
    If IE Is Nothing Then
        Set IE = CreateObject("InternetExplorer.Application")
    End If
    IE.Visible = True
    IE.Navigate "http://ru.wikipedia.org/w/index.php?search=груша+9"
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

    For Each x In IE.Document.GetElementsByTagName("div")
        If InStr(1, x.classname, "mw-search-result-heading", vbTextCompare) > 0 Then
            For Each X1 In x.GetElementsByTagName("a")
                href = X1.href ' берем только первую ссылку
                GoTo Дальше
        Next
   End If
  Next
Exit Sub
Дальше:

   IE.Navigate href
  
    For i = 1 To 1000: DoEvents: Next
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
   ' Дальше ваш код
    
      IE.Quit
   Set IE = Nothing

End Sub

[Скрипт]

doober, весь секрет был оказывается в "Busy" (не знаю, когда бы сам до этого догадался).

Вот так отслеживается после нажатия кнопки:

    'Ждём, когда сайт загрузится на компьютер и откроется.
    Do While myIE.Busy = True Or myIE.readyState <> READYSTATE_COMPLETE
        'Останавливаем работу процедуры на 1 секунду,
            'чтобы не тормозить работу всего компьютера,
            'т.к. циклы тормозят работу компьютера.
        Sleep dwMilliseconds_In:=1000
    Loop

[nerv]

я так делал

Set IE = CreateObject("InternetExplorer.Application")

Call IELoadPage(URL, IE)

...

Private Sub IELoadPage(ByVal Url As String, _
                       ByRef IE As Object)
    IE.Navigate Url

    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
End Sub

и чтобы не плодить подобных кострукций

For Each x In IE.Document.GetElementsByTagName("div")
        If InStr(1, x.classname, "mw-search-result-heading", vbTextCompare) > 0 Then
            For Each X1 In x.GetElementsByTagName("a")
                href = X1.href ' берем только первую ссылку
                GoTo Дальше
        Next
   End If
  Next

написал простой селектор, с кот. идет работа вида

Set List = QSA.Query("table.results-list tbody tr", Html)