Afstanden berekenen in excel

[Iamghost]

Hallo allemaal,

Wie kan mij helpen?

Ik ben bezig een adressenlijst op te stellen van klanten, hierbij wil ik gaan kijken wat de afstand tussen ons bedrijf in de klant is. ik heb hiervoor al op verschillende forums gekeken en weet nu hoe ik dit moet doen doormiddel van de volgende code:

Public Function GetPage(sLink As String) As XMLHTTP40
Dim oObj As MSXML2.XMLHTTP40
Set oObj = New XMLHTTP40
oObj.Open "GET", sLink, False
oObj.send ""
Set GetPage = oObj
End Function

Public Function GetDistanceBetweenAreaCodes(Code1 As String, Code2 As String)
Dim oResult As XMLHTTP40
Dim oDOM As DOMDocument40
Dim sStr As String
Dim sResult As String
Dim sURL As String
Const sKeyWords As String = "</strong> route over <strong>"
sURL = "http://route.anwb.nl/routeplanner/servlet/rp?action=0&zip1="
sURL = sURL & Code1 & "&city1=&street1=&zip2="
sURL = sURL & Code2 & "&city2=&street2=&iad=homepage.navigatie.middenkolom.routeplannerplanroute"
Set oResult = GetPage(sURL)
Set oDOM = New DOMDocument40
sStr = oResult.responseText
sResult = Mid(sStr, InStr(sStr, sKeyWords) + Len(sKeyWords))
sResult = Replace(Mid(sResult, 1, InStr(sResult, " ")), ",", ".")
GetDistanceBetweenAreaCodes = Val(sResult)
End Function

Nu is mijn vraag, kan ik deze code aanpassen zodat ik inplaats van op de postcode, met de plaatsnaam de afstand kan berekenen?

Alvast bedankt voor de hulp.

 

[wampier]

Ja, de "code" achter "city=" plakken in plaats van "zip="

 

[Iamghost]

Heey Wampier,

Bedankt voor de snelle reactie, ik ben alleen niet zo thuis als het gaat om het verwerken van dit soort codes. Zou je iets duidelijker kunnen omschrijven wat ik precies moet doen. Heb al een aantal dingen geprobeert, dit alleen zonder succes.

Alvast bedankt.

 

[wampier]

sURL = "http://route.anwb.nl/routeplanner/servlet/rp?action=0&zip1=&city1="
sURL = sURL & Code1 & "&street1=&zip2=&city2="
sURL = sURL & Code2 & "&street2=&iad=homepage.navigatie.middenkolom.routeplannerplanroute"

volgens mij zou het zo moeten werken. let op, beide moeten nu een plaatsnaam zijn.

 

[Iamghost]

Bedankt Wampier,

Het is gelukt

 

[azuri]

Plaatsnaam Rotterdam

Hallo,

Ik heb dit geprobeerd en het werkt. Alleen bij plaatsnamen zoals Rotterdam Den haag pakt die het niet. Hoe kan ik dit oplossen?