send keystrokes to whereis.com.au - get directions


G

Guest

I managed to use Excel VB to open www.whereis.com.au web site and go to the
get directions web site. However, I have trouble to send key strokes to the
field. here is my macro.

Sub getdirection()

'log onto the www.whereis.com.au web site

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate
"http://www.whereis.com/whereis/home.do;jsessionid=31763A8054B6B4158122BB6F99955303.server3-1"

Do While ie.Busy And Not ie.ReadyState = 4:
Application.Wait (Now + TimeValue("0:00:02"))
DoEvents
Loop

ie.Document.all("whereisAddress.streetNumber").Value = "65"
ie.Document.all("whereisAddress.fullStreetName").Value = "Waterloo Road"
ie.Document.all("whereisAddress.suburb").Value = "Mosman"
ie.Document.all("whereisAddress.state").Value = "NSW"


Set ipf = ie.Document.all.Item("cmd")
ipf.Click





End Sub
 
Ad

Advertisements

G

Guest

Use the ID instead of the name of the elements, it is a lot easier:

ie.document.getElementById("addressStreetNo1").value = "65"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top