Afstanden zoeken met oude ANWB Routeplanner

[freddo11]

Hoi,

Schijnbaar is de oude ANWB routeplanner weer actief is ( zie: http://www.anwb.nl/verkeer/routeplanner-klassiek)
Het is nu vast mogelijk om deze routeplanner weer met Excel en VBA code aan te roepen om de onderlinge afstand tussen postcodes te kunnen berekenen.
Kan dat? Is hier al een antwoord op?

 

[Jaspertjeh]

Ik denk als webdeveloper eerder aan een API. Bijvoorbeeld van Google! Deze spreek je aan door een GET-request in de webbrowser te maken.

Linkje: https://developers.google.com/maps/documentation/distance-matrix/start#sample-request


Jasper

 

[freddo11]

De API van Google Maps is mij bekend maar ik wil specifiek graag weer toegang krijgen tot de ANWB (die heeft nl. wel de optie tot berekening kortste route)
Dit was voorheen ook mogelijk maar door de vernieuwde ANWB routeplanner kon dit de afgelopen twee jaar niet meer.

 

[alphamax]

Dan vraag je toch in de google maps api alle alternatieve routes op, en dan zoek je de kortste.
Zie http://www.helpmij.nl/forum/showthread.php/859905-Afstand-tussen-Postcodes-Snelste-Kortste, bericht#4, voor precies dezelfde vraag.

[SIZE=1]Option Explicit

Public Function Shortest(strOrigin As String, strDestination As String) As Variant    'meters
    Dim lngDistance As Long
    Dim objResult As Object
    Dim strStatus As String
    On Error Resume Next
    With CreateObject("MSXML2.DOMDOCUMENT")
        .Async = False
        .Load "http://maps.googleapis.com/maps/api/directions/xml?origin=" & strOrigin & "&destination=" & strDestination & "&alternatives=true&language=nl&units=metric&sensor=false"    'am_2016
        strStatus = .SelectSingleNode("//status").Text
        If strStatus = "OK" Then
            Shortest = 9E+18
            For Each objResult In .SelectNodes("//leg/distance/value")
                lngDistance = CLng(objResult.Text)
                If lngDistance < Shortest Then
                    Shortest = lngDistance
                End If
            Next
        Else
            Shortest = strStatus
        End If
    End With
End Function[/SIZE]

 

[freddo11]

Alphamax, bedankt maar weer voor de oplossing!