IE Automation using Excel VBA (navigation issue)

[Dzirt07]

Hello, please help

I'm trying to create macro which will pull data from site
I was using this code for others projects. However, It's not working with http://www.phila.gov/water/swmap/

I think the problem is in

Set Element = .document.getElementsByName("searchText")

Maybe I didn't choose right element, I don't know

Please help if you can

Sub Storm_Water()
    Set objIE = CreateObject("InternetExplorer.Application")
    WebSite = "http://www.phila.gov/water/swmap/"
    With objIE
        .Visible = True
        .navigate WebSite
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop


        Set Element = .document.getElementsByName("searchText")
        Element.Item(0).Value = "1725 Hoffman st"
        .document.forms(0).submit
        '.quit
        End With


End Sub

 

[Norie]

Try this.

Sub Storm_Water()
    Set objIE = CreateObject("InternetExplorer.Application")
    WebSite = "http://www.phila.gov/water/swmap/"
    With objIE
        .Visible = True
        .navigate WebSite
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop


        Set Element = .document.getElementByID("searchText")
        Element.Value = "1725 Hoffman st"
        .document.forms(0).submit
        '.quit
    End With


End Sub

PS When searching on that address a message pops up, 'Parcel could not be found'.

 

[Dzirt07]

Thank you for quick reply

Yes, it seems like 1725 hoffman st is not on database anymore

However, when I'm trying to use "6812 old york" ( 100% correct) it simply doesn't show anything
The problem occurs after

[COLOR=#333333].document.forms(0).submit[/COLOR]

 

[Norie]

This works but only when I step through it, think it might be a timing issue.

Sub Storm_Water()

    Set objIE = CreateObject("InternetExplorer.Application")
    WebSite = "http://www.phila.gov/water/swmap/"
    
    With objIE
        .Visible = True
        .navigate WebSite
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop


        Set Element = .document.getElementByID("searchText")
        Element.Value = "6812 old york"
    
        Set Element = .document.getElementByID("searchBtn")
        Element.Click
        '.quit
    End With

End Sub

 

[Dzirt07]

Norie, thank you for help

I found the solution for my problem

Sub Storm_Water()    
    
    Set objIE = CreateObject("InternetExplorer.Application")
    WebSite = "http://www.phila.gov/water/swmap/"
    With objIE
        .Visible = True
        .navigate WebSite
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop


        Application.Wait Now + #12:00:10 AM#
        Set Element = .document.getElementById("searchText")
        Element.Value = "6812 old york"
        .document.getElementById("searchBtn").Click
        '.quit
    End With
       




End Sub