Calculating Google Maps Distances Using Postcodes

Hello. I have read many threads on this site about using Google Maps to calculate the distance in miles between 2 different post codes. I have copied the relevant code but cannot get it to return anything other than a zero.

I want to return in cell C the value of the distance in miles between the post code in cell A and cell B. Any help would be greatly appreciated.

I have attached the workbook in question.

You might try changing:

strSearch = strSearch & ":"""

to:

strSearch = strSearch & ":'"

(the above resides in the 3rd Function listed)

For that purpose I use:
(with a reference to Microsoft XML library)

Sub google_distance_snb()
  c02 = "6721MZ+Nederland"
  c03 = "1072NC+Nederland"

' c02=activesheet.cells(1,1)
' c03=activesheet.cells(1,2)  

  With New MSXML.XMLHTTPRequest
    .Open "Get", "http://maps.google.nl/maps?f=d&source=s_d&saddr=" & c02 & "&daddr=" & c03
    .send

    Do
      DoEvents
    Loop Until .ReadyState = 4
        
    ActiveWorkbook.Sheets(1).Cells(1, 3) = Split(Split(.responseText, "distance:'")(1), "'")(0)
    .abort
  End With
End Sub

@snb, per my earlier post I believe the response string has altered, using "distance:" as search criteria will no longer retrieve the appropriate value.

@DonkeyOte,

You are quite right.
I amended my previous code.

Apparently not possible (Google seems to have a 'always change what works' policy):

Sub snb()
 c01 = "4522EG + Nederland"
 c02 = "3571NC + Nederland"
    
 With New XMLHTTPRequest
  .Open "Get", "http://maps.google.nl/maps?f=d&source=s_d&saddr=" & c01 & "&daddr=" & c02
  .send
  Do
   DoEvents
  Loop Until .readyState = 4
                
  c03 = .responsetext
  .abort
 End With
    
 If InStr(c03, "km</span>") <> 0 Then
  c03 = Mid(c03, InStr(c03, "km</span>") - 6, 40)
  If Val(c03) = 0 Then c03 = Mid(c03, 2)
  If Val(c03) = 0 Then c03 = Mid(c03, 2)
        
  c04 = Split(c03, "<")(0)
  c03 = Split(Split(c03, ">")(2), "<")(0)
  MsgBox "Distance: " & c04 & String(2, vbLf) & "Duration: " & c03
 End If
End Sub

NB. you need a reference to Microsoft XML version 2.0

Whereever you want to as long as it's a codemodule (workbook, sheet, userform, macromodule, classmodule).

I added an attachment to the previous post.

so give me those postcodes and I'll try it over here.
I know it works for Barcelona, Sweden etc.

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread