At this point, I'd be happy if this would return anything other than:
Public Function GoogleDistance(FromAddress As String, ToAddress As String) As String Dim strMyKey as string Dim sXMLURL As String Dim objXMLHTTP As MSXML2.ServerXMLHTTP On Error GoTo ProcError strMyKey = "aaaa" '<= this is not the actual key sXMLURL = "https://maps.googleapis.com/maps/api/distancematrix/xml?" _ & "origin=" & Replace(Replace(FromAddress, " ", " "), " ", "+") & "&" _ & "destination=" & Replace(Replace(ToAddress, " ", " "), " ", "+") & "&" _ & "key=" & strKey ' & "sensor=False" & "&" Debug.Print sXMLURL Set objXMLHTTP = New MSXML2.ServerXMLHTTP With objXMLHTTP .Open "Get", sXMLURL, False .setRequestHeader "content-Type", "application/x-www-form-URLEncoded" .send End With Debug.Print objXMLHTTP.responseText ProcExit: Exit Function ProcError: Debug.Print Err.Number, Err.Description MsgBox Err.Number & vbCrLf & Err.Description Resume ProcExit End Function
I'm sure it is something simple in the formatting of the request string, maybe a comma, a space or something else. The data I'm testing it with generates the following string:
<?xml version="1.0" encoding="UTF-8"?> <DistanceMatrixResponse> <status>INVALID_REQUEST</status> </DistanceMatrixResponse>
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Connect with Certified Experts to gain insight and support on specific technology challenges including: