Pytanie : Readystate w IE w VBA program

Kochany Ekspert,

Lots ludzie używać następujący VBA kod the wbesite w IE, i I zakładać niektóre niestały zagadnienie lub error
in mój kod który środek czasem ono praca ok ale czasem pracować, I używać "Debug.print" to
check dokąd być błąd, znajdować przy Code-line-11, .document.all ("nazwa użytkownika") .click mieć zagadnienie z Readystate
we use .navigate the strona internetowa w pierwszy czas, Readystate i Ruchliwie stan IE być dobry flaga see
the IE przygotowywać i ruchliwie lub nie. W Ten Sposób checkreadystate funkcja być zadowalający dla pierwszy czas IE. Ale Gdy I używać .doucment.all ("Nazwa użytkownika") .click po drugie inny strona internetowa strona, ono wydawać się Readystate i Checkreadystate funkcja desn't pomoc dużo dla czekanie/monitor "nazwa użytkownika" strona być przygotowywać i ruchliwie lub nie. I zgadywać the być ponieważ Readystate już ustawiać pierwszy czas nagviate " http://example.com " jeżeli pomyślnie przy (code-line-7) I the użytkownik móc the stan REadystate oprócz skwitowany the IIE okno. W Ten Sposób, I próbować stawiać code-line-13, Sen (3000) dla 3 sekunda opóźniać, the VBA kod praca świetnie. I ono my także stawiać tylny code-line-6 robić ono. Widoczny IE okno, ono także praca ale nie wszystkie the czas. Ono wydawać się the zagadnienie i błąd być niewywrotny wcale który można odnosić sie timming the "Nazwa użytkownika" strona. Być tam  jakaś metoda Kiedy jakaś ładowanie strona być przygotowywać i ruchliwie lub nie ale przypominać ono być drugi raz ładowanie strona po tym jak nagviate the pierwszy strona

I sposób pierwszy czas ładowanie strona, na przykład, pierwszy czas IE badacz i seoncd czas ładowniczy page
means ty musieć na the pierwszy strona przygotowywać the drugi strona internetowa, Właśnie jednakowy to
when ty login twój bank website.

I chcieć Sen (3000) funkcja i. Widoczny drugi ładowniczy strona przygotowywać najpierw zanim my are
running nasz odpoczynek nasz program kod. What być propozycja ten zagadnienie ? Jeżeli ty rozumieć mój zagadnienie, zadawalać pozwalać. I wyjaśniać więcej.  Zadawalać advise

Br
Duncan

1-Dim myIE Gdy SHDocVw.InternetExplorer "Potrzeba Microsoft Internetowy Kontrola odnosić się selected
2-Set myIE = Nothing
3-Set myIE = CreateObject ("InternetExplorer. Application")
4-Set myIE = Nowy InternetExplorer
5-With myIE
6 -". Widoczny = True
7- .navigate " https:example.com "
8-Call CheckREadyState (myIE, 1)
9- .doucment.all ("username") = " ABC "
10-.doucment.all ("password")= " 33443 "
11-.doucment.all (nazwa użytkownika) .click
12-Call CheckREadyState (myIE, 1)
13- 'Sen (3000)

Function CheckReadystate (ByRef myIE Jako Przedmiot, state1 Jako Integer)
With myIE
Do Nie. Ruchliwie I .readyState = READYSTATE_COMPLETE
Debug.Print state1
Debug.Print. Busy
Debug.Print .readyState
DoEvents
Loop
Końcówka With
End Function

Odpowiedź : Readystate w IE w VBA program

Whoops. Rozmieniony kod decleration (MyIE)

(1): 2: 3: 4:

'Czekać na the strona. Robić Podczas Gdy myIE.Busy Lub myIE.ReadyState <> 4 DoEvents Pętla