Hi, I managed to open the web site by using the VB in Excel but I cannot send the keystrokes to the site(go directions), can anyone help.

Sub getdirection()

'log into csweb.tpg.com.au

Dim ie As Object
  Set ie = CreateObject("InternetExplorer.Application")
     ie.Visible = True
     ie.navigate "http://www.whereis.com/whereis/directions.do"

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

   ie.document.getElementById("addressStreetNo0").Val ue = "65"
   ie.document.getElementById("addressStreetName0").V alue = "Waterloo Road"
   ie.document.getElementById("addressSuburb0").Value = "Mosman"
   ie.document.getElementById("addressState0").Value = "NSW"


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

Is this what you need?

yes, tks but it seems on the private sub part, my excel has not got an error Message:"complie error, cannot find the project or Library" and highlighted the word "left". I guess I have not intalled the right dll. would you pse advise what to do.

The Left function is part of the VBA library (in the strings module) and so should always be available. It sounds to me like you've got a missing reference clogging up the system. Could you go to Tools -> References... and uncheck any items that start with MISSING: (or something like that)

Hi, it is working now. However, infact my objective is to obtain the total Km and total time after having automated input the from (address0) and to (address1), I still got the other problem as if either the address0 or address1 is not clear, it will bring you to another web site to confirm with you the address, then it brings you to the final page which shows you the total km and the mins used to travel from one place to the other.

Therefore, I have two obstacles, one is to pass thro' the second web site(confirming the address if it is unclear) and then extracting the total km and mins from the final page.

here is the script with the addresses.

Sub getdirection1()
' Log into csweb.tpg.com.au

Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "http://www.whereis.com/whereis/directions.do"

    WaitForLoad ie

    ie.document.getElementById("addressStreetNo0").Val ue = "65"
    ie.document.getElementById("addressStreetName0").V alue = "Waterloo Road"
    ie.document.getElementById("addressSuburb0").Value = "North Ryde"
    ie.document.getElementById("addressState0").Value = "NSW"

    ie.document.getElementById("addressStreetNo3").Val ue = "414"
    ie.document.getElementById("addressStreetName3").V alue = "Military Road"
    ie.document.getElementById("addressSuburb3").Value = "Cremone"
    ie.document.getElementById("addressState3").Value = "NSW"

    ie.document.getElementById("btnGetDirections").Cli ck

End Sub

Private Sub WaitForLoad(IExp As Object)
' Wait for page to load before continuing

Dim sngTime As Single

Const MaxTime As Integer = 10

    sngTime = Timer

    ' Wait until the webpage is doing something ...
    Do Until IExp.readyState <> 4
        DoEvents
        If Timer > sngTime + MaxTime And Left(IExp.statusText, 4) = "Done" Then Exit Sub
    Loop

    ' ... and then wait for it to finish
    Do Until IExp.readyState = 4
        DoEvents
        If Timer > sngTime + MaxTime And Left(IExp.statusText, 4) = "Done" Then Exit Sub
    Loop

End Sub

tks and it works. However, my objective is to get the total km and mins from the final page. However, there are two obstacles. One, if either of address0 or address1 is unclear, another webpage will pop up and asking to confirm the addresses, then it will bring you to the final page and show you the total km and mins.

All I have to do is to extract the total km and mins from that page and put into a cell in excel. can you suggest what to do?

I have here an example of the addresses.

Sub getdirection1()
' Log into csweb.tpg.com.au

Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "http://www.whereis.com/whereis/directions.do"

    WaitForLoad ie

    ie.document.getElementById("addressStreetNo0").Val ue = "65"
    ie.document.getElementById("addressStreetName0").V alue = "Waterloo Road"
    ie.document.getElementById("addressSuburb0").Value = "North Ryde"
    ie.document.getElementById("addressState0").Value = "NSW"

    ie.document.getElementById("addressStreetNo3").Val ue = "414"
    ie.document.getElementById("addressStreetName3").V alue = "Military Road"
    ie.document.getElementById("addressSuburb3").Value = "Cremone"
    ie.document.getElementById("addressState3").Value = "NSW"

    ie.document.getElementById("btnGetDirections").Cli ck

End Sub

Private Sub WaitForLoad(IExp As Object)
' Wait for page to load before continuing

Dim sngTime As Single

Const MaxTime As Integer = 10

    sngTime = Timer

    ' Wait until the webpage is doing something ...
    Do Until IExp.readyState <> 4
        DoEvents
        If Timer > sngTime + MaxTime And Left(IExp.statusText, 4) = "Done" Then Exit Sub
    Loop

    ' ... and then wait for it to finish
    Do Until IExp.readyState = 4
        DoEvents
        If Timer > sngTime + MaxTime And Left(IExp.statusText, 4) = "Done" Then Exit Sub
    Loop

End Sub