invulvelden van een website invullen met excel en de uitkomst terug in excel krijgen

[geertlismont]

Goedemorgen

is het mogelijk om via excel/vba de invulvelden van deze website in te vullen

https://nl-be.mappy.com/#/2/M2/TItineraryHome/N0,0,4.03332,50.93326/Z11/

en het aantal km terug naar excel te sturen in een cel?

mvg
Geert

 

[alphamax]

Niet met mappy, maar het veel programmeursvriendelijke google maps.
Of is er een bepaalde reden om "mappy" te kiezen boven "google maps"?

In een Module zodat je het kan gebruiken als UDF.

[SIZE=1]Option Explicit

Public Function GoogleMapsXMLDistance(strOrigins As String, strDestinations As String) As String
    'https://developers.google.com/maps/documentation/distancematrix/?hl=nl
    'Usage Limits
    '        100 elements per query.
    '        100 elements per 10 seconds.
    '        2 500 elements per 24 hour period.
    Dim strResult As String
    On Error Resume Next
    With CreateObject("MSXML2.DOMDOCUMENT")
        .Async = False
        .Load "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & strOrigins & "&destinations=" & strDestinations & "&sensor=false"    'am_2014
        strResult = .SelectNodes("//status")(0).Text & ", " & .SelectNodes("//status")(1).Text
        If strResult <> "OK, OK" Then
            GoogleMapsXMLDistance = strResult
        Else
            '                        GoogleMapsXMLDistance = .SelectSingleNode("//distance/value").Text    'distance in meters without unit
            GoogleMapsXMLDistance = .SelectSingleNode("//distance/text").Text    'distance in meters/kilometers with unit
        End If
    End With
End Function[/SIZE]