Comments on: Geocoding in Excel using Google Maps API

by: JS

Fri, 15 Feb 2008 16:00:28 +0000

Steve Change router to a function by changing code like this: Sub Router() - change to Router(sStart as string, sEnd as string) as string ‘function(sStart As String, sEnd As String) as string -delete this line ‘//Dont want to open and close all day long - make once use many Dim sLocation As String Dim sStart As String - delete this line Dim sEnd As String - delete this line Dim Answer As String sStart = “Warsawa+Poland” -delete this line sEnd = “Northampton+England” -delete this line... find this line... MsgBox sStart & ” to ” & sEnd & vbCrLf _ & ansMiles & ” ” & ansUom & ” : ” & ansHrs + (ansMin * (100 / 60) * 0.01) & ” Hrs” replace with Router= sStart & ” to ” & sEnd & vbCrLf _ & ansMiles & ” ” & ansUom & ” : ” & ansHrs + (ansMin * (100 / 60) * 0.01) & ” Hrs” so the function entry is =router(YourStartLocation, YourEndLocation) and the result is a string in the cell listing the distance etc.

by: steve

Mon, 11 Feb 2008 13:26:46 +0000

Hello everybody,

I put it in as a new function named ‘router’ in the original sheet.
Wat is the statement I have to put in a cell of my excel sheet to get the result.
ex. for goecode it is =geocode(C51&” “&D51&” “&E51&” “&F51)

thanks,

Steve

by: JS

Fri, 11 Jan 2008 23:22:43 +0000

Oh! I guess this may be a difference in the output from Google for different geographies. Suggest you might put a “debug.print answer” after line with “Answer = Mid(Answer, InStr(Answer, “class=pw>”) + 9, 50)”. The string SHOULD (it does for me) contain data that aligns with (a) a mileage (b) a journey location. (that is the target answer, but to report it properly you will need to play with the subsequent text slicing formulas to get each element out properly. My guess is that the change in what you are finding is due to different formats between Europe output and North America.
Otherwise examine the previous (raw) output from Google.
I think there must be a more elegant solution than mine, I am hoping Ross comes up with that!

by: Larry W.

Thu, 10 Jan 2008 20:47:52 +0000

JS - thanks again for the help to this newbie. I think I must have copied something wrong (thought I’ve done it a few times.) Any way to get this in a text file.

When I tried your suggestion this is what I get in the Immediate Window for the debug Answer.

d=homestate>

by: JS

Thu, 10 Jan 2008 18:42:28 +0000

OK thats should be straightforward to fix. the Answer variable is just a string extracted from the google return data. The code assumes in there is a “&” and then extracts a sub-string which should be some numbers showing miles (I said it was crude!). If you put a debug.print answer in the previous line and put a break on this you can stop and check what the answer string is you are working on, maybe you can then tune the formula. My guess is that the CSng (conversion of the text to a number) is the cause of failure; the string extracted has, say, space in it. Hope that helps

by: Larry W.

Thu, 10 Jan 2008 13:35:45 +0000

Yes I did and yes his Geocode sheet works great.

I also added this as a new procedure (and tried it as a seperate worksheet) and it fails at ansMiles = CSng(Left(Answer, InStr(Answer, “&”) - 1)) that line every time. I am not sure why - I’m newer to coding.

Thanks for the reply - larry.weideman (at) gmail.com

by: JS

Thu, 10 Jan 2008 12:00:40 +0000

Larry
Have you followed all of Ross’s original instructions about getting a Google API key?
I have used Ross’s worksheet and added Router as a new procedure. If you are getting a good result on his original geo-coding procedure, I cannot see why it would not calc.
Maybe comment out the ‘On Error GoTo depart’ line and see where the error is coming up?
JS

by: Larry W.

Wed, 09 Jan 2008 14:37:12 +0000

JS - thanks for the reply. I keep getting Journey Did Not Calculate though. Any ideas?

Larry.Weideman (at) gmail.com

by: JS

Mon, 07 Jan 2008 14:39:01 +0000

How strange, Less than symbol in listing kills the rest of the listing…

If Len(Answer) [less than] then
Debug.Print “no journey result”
Else
Debug.Print Answer
ansMiles = CSng(Left(Answer, InStr(Answer, “&”) - 1))
ansUom = Mid(Answer, InStr(1, Answer, “;”) + 1, 2)
ansHrs = CInt(Mid(Answer, InStr(1, Answer, “about “) + 6, 2))
ansMin = CInt(Mid(Answer, InStr(1, Answer, “hours “) + 6, 2))
MsgBox sStart & ” to ” & sEnd & vbCrLf _
& ansMiles & ” ” & ansUom & ” : ” & ansHrs + (ansMin * (100 / 60) * 0.01) & ” Hrs”

End If

Exit Sub
depart:
MsgBox “Journey did not calculate”
‘Answer = CStr(CloseIEApp)

End Sub

by: JS

Mon, 07 Jan 2008 14:37:05 +0000

sorry missed the key bit from listing….

Answer = appIE.Document.Body.innerHTML
Answer = Mid(Answer, InStr(Answer, “class=pw>”) + 9, 50)
If Len(Answer)