Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE --- NOT WORKING !!!

Scott

It's kind of hard to help with only 3 lines of code.

Also generally when trying to help with automating IE the URL is a great help.(

Sorry, I understand the desire to see all the code, I thought the code provided was all the code that pertained to the issue (IE not waiting properly until ready).


I can give this additional code, though the site is password protected and I really can't give that online.
I'm still trying to figure out why it appears that the execution is not waiting until the page loads before clicking the "Edit" button. Strange.
--------------------

Sub a_BATT_automate()

Dim planCode As String
planCode = "8P0YRXCSB"

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")


With ie
.Visible = True
.navigate "some site.com"


'wait until the page loads
Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop


'---------------------------selects the scenario
With .document.forms(0)
Set Box = .document.all.Item("ctl00$cphMain$gvSelectScenario$ctl0")
Box.Click
End With


'wait until the page loads
Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop



'---------------------------clicks the edit button
With .document.forms(0)
Set but = .document.all.Item("ctl00$cphMain$btnEdit")
but.Click
End With


'wait until the page loads
Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop


'------------------------ with the Edit Scenario Screen
With .document.forms(0)

'set the Scenario name
Set txtBx = .document.all.Item("ctl00$cphMain$txtScenarioName")
txtBx.Value = planCode & Date

'set the Plan Code
Set txtBx = .document.all.Item("ctl00$cphMain$txtPlanCode")
txtBx.Value = planCode

'set the Plan Name
Set txtBx = .document.all.Item("ctl00$cphMain$txtPlanName")
txtBx.Value = planCode
End With

srj19 said:

'wait until the page loads
Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

This doesnt seem to work well enough, since actions are occuring that should NOT occur until the browser is ready.

Any other ideas as to how to make IE wait until the page is completely ready? I wondered about possibly checking the .innerHTML to verify that a unique page element is present.

Click to expand...

Hi Scott,

I often find myself in the same trouble and it is usually a pain trying to deal with that failure on ie object. You might end up with a checking objects solutions or even checking the ie's status bar that I have done a few times but I don't find these "patches" very healthy - not very reliable according to me.

However, you migth want to try using IE object itself and use its DocumentComplete event which would be a good solution in most cases. I am not sure if rebuilding your existing code's logic to this one would be efficient but I would give it a try. I hope it helps.

Thanks for the tip, I was going crazy trying to find info on documentComplete online and finally gave up. I'm not familiar with this item or events in general, I'm afraid.


I ended up testing for the presence of a unique string in the page html, if not found, clicked the button, wait and test againg. Worked the first time.

Do While InStr(1, ie.document.body.innerHTML, "Edit Scenario", 1) = 0
With .document.forms(0)
Set but = .document.all.Item("ctl00$cphMain$btnEdit")
but.Click
End With

'wait until the page loads
Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop


Loop