Internet Automation Retrieving DIV class results

[mdo8105]

Hi everyone,

I am running into issues retrieving data back into excel after I automate the click on the web page. The html code that I believe has the results is

div class="zipcode-result-address">                                                                                        123 FAKE ST
                                            CHULA VISTA CA [B]91910-3885[/B]
                                        
The code is able to populate the webpage and search and I am not receiving an error as well, I'm just not getting anything back.
[CODE]Sub Atest()Dim objIE As InternetExplorer
Dim aEle As HTMLDivElement
Dim Result As String
Dim y As Integer


'innitiating a new instance of IE and assiging it to objIE
Set objIE = New InternetExplorer


'make IE browser visible
objIE.Visible = True


'navigate IE to this web page
objIE.navigate "https://tools.usps.com/zip-code-lookup.htm?byaddress"


'wait here a few seconds whilte the browser is busy
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop


'enter the values in the fields
'Address
objIE.document.getElementsByName("tAddress").Item(0).Value = ThisWorkbook.Worksheets("Address Verification").Cells(5, 2).Value
'Zip
objIE.document.getElementsByName("tZip-byaddress").Item(0).Value = ThisWorkbook.Worksheets("Address Verification").Cells(5, 5).Value
'Click the find button
objIE.document.getElementById("zip-by-address").Click
'wait again for the browswer
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop


'For each  element in the collection of bjects with class of '"zipcode-result-address"
For Each elm In objIE.document.getElementsByClassName("zipcode-result-address")
            MsgBox elm.innerText
         
        Next elm
End Sub[/CODE]

 

[mdo8105]

I am able to find the value via a Msgbox with this statement

Set Nodelist = objIE.document.getElementsByTagName("p")For Each Elem In Nodelist
MsgBox Elem.innerText


Next Elem

But I cannot find out which paragraph position it is and when I try to out all of the text onto a sheet nothing comes out, it as if I can only view it in MsgBox.

 

[Norie]

The first code you posted works fine for me and returns 128 addresses via the message box.

Mind you I did have a a breakpoint on the For Each meaning that the page had a little more time to load, which indicates this could be a timing issue.

Perhaps you could try adding this, which should delay things until the actual document is loaded.

While objIE.document.ReadyState <> "complete": DoEvents: Wend

 

[mdo8105]

Hi Norie,

Thank you for the response. I updated the Do while statement to While and Wend; however, still nothing is coming across, not even an error. I am using IE 11. Do you think that is causing the issue?

 

[Norie]

If you step through the code, letting the page load, does the code work?

 

[mdo8105]

Hi Norie,

It works like a charm when I step through. Do you think the browser is timing out?

 

[John_w]

Try this as the 'wait' before the For Each loop:

While objIE.document.getElementsByClassName("zipcode-result-address").Length = 0 
    DoEvents
Wend

Of course, if there is more than 1 element with the class name "zipcode-result-address" the above code could still cause a timing issue if the 2nd and subsequent elements aren't ready in the For Each loop.

 

[mdo8105]

It's working in an interesting way. It will finish the code and works properly once I stop the page from loading in IE. It's looping here:

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

 

[Norie]

Not ideal but you could try using Application.Wait to, well, wait until the page loads instead of your current loops.

 

[mdo8105]

Hi Norie,

So far it is working. I'm wondering if I was just having poor internet connection at the moment. Thank you so much.