Wait on IE to finish before moving on - Xtreme Visual Basic Talk

07-14-2012, 05:40 PM

brittonsm

Newcomer

Join Date: Jul 2012

Posts: 2

Wait on IE to finish before moving on

After if fire this event Excel doesn't always wait long enough for the event to complete - I put in a dumb loop to "usually" works, but I know there's a correct way to do this. Any ideas?

ie.document.getElementById("ctl00_ctl00_cphMain_cphMain_ddlReceiveBran ch").fireevent ("onchange")

'WHAT I'M USING
For dumb = 0 To 100000
DoEvents
Next

'THESE DON'T WORK...

Do While ie.busy
DoEvents
Loop

Do While ie.ReadyState <> 4
DoEvents
Loop

07-15-2012, 07:52 AM

mjclare

Freshman

Join Date: Nov 2007

Posts: 29

Here is the 'wait function that I use to force my code to wait for ie to finish. You can see it demonstrated in a code snippet here: http://www.xtremevbtalk.com/showthre...ighlight=lwait

Note that if the site that you are scraping uses frames, the object that you send to this is not just the LOIE object; you have to send it the specific frame object that is being refreshed.

Mike Clare

Code:

Function lWait(LOIE As Object) As Boolean
  Dim t1 As Long
  Dim t2 As Long
  On Error Resume Next
  t1 = Timer
  t2 = t1 + 60
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If VarType(LOIE.document) = vbString Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If LOIE.busy = False Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If VarType(LOIE.document.readystate) = "C" Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If LOIE.document.readystate = "complete" Then Exit Do
  Loop
  lWait = True
End Function

07-30-2012, 09:10 AM

angle2k3

Freshman

Join Date: Mar 2010

Posts: 37

its been a while since i've done anything like this, but i'm fairly certain the only really robust way to do this was to reload the document object and
poll for a string (in the html or url) you were expecting on the new page

along the lines of

Code:

 
set doc = IE.document
while (instr(doc.innerHtml, "your_search_string") = 0)
'or try searching doc.LocationURL 
   'wait 1 second before polling again
   application.wait(now() + timeserial(0,0,1))  
wend