Gijs van de wij
Gebruiker
- Lid geworden
- 5 feb 2008
- Berichten
- 13
Beste mensen,
Voor het omzetten van een postcode naar een straatnaam gebruik ik PDOK
Helaas hebben ze de locatie server aangepast en is mijn kennis te kort om dit te kunnen aanpassen in VBA.
de code waar get om gaat is:
er is een link waarin het eea is uitgelegt alleen dat gaat mij nog te ver.
https://github.com/PDOK/locatieserver/wiki/Zoekvoorbeelden-Locatieserver
Wie kan mij helpen dit stukje aan te passen?
Alvast bedankt
Bekijk bijlage afstanden.xlsb
Voor het omzetten van een postcode naar een straatnaam gebruik ik PDOK
Helaas hebben ze de locatie server aangepast en is mijn kennis te kort om dit te kunnen aanpassen in VBA.
de code waar get om gaat is:
Code:
With CreateObject("MSXML.DOMDOCUMENT") 'am_2016
.Async = False
.Load "http://geodata.nationaalgeoregister.nl/geocoder/Geocoder?zoekterm=" & Replace(Trim(PostcodeNummerbew), " ", "") & "+" & HuisNummer & " & strict=true"
strStraat = .SelectSingleNode("//xls:Street").Text
strPlaats = .SelectSingleNode("//xls:Place[@type='MunicipalitySubdivision']").Text
strGemeente = .SelectSingleNode("//xls:Place[@type='Municipality']").Text
strProvincie = .SelectSingleNode("//xls:Place[@type='CountrySubdivision']").Text
End With
er is een link waarin het eea is uitgelegt alleen dat gaat mij nog te ver.
https://github.com/PDOK/locatieserver/wiki/Zoekvoorbeelden-Locatieserver
Wie kan mij helpen dit stukje aan te passen?
Alvast bedankt
Bekijk bijlage afstanden.xlsb