Soru İller ve İlçeler Arası Mesafe

[TUNCA ERSİN]

Sy. Hocalarım ;

Kalkış , Varış İl ve İlçe seçtiğim zaman Google Mapsten km. ve zamanını almasını istiyorum. teşekkür ederim.

 

[ÖmerFaruk]

Şöyle bir kod buldum. Ama API anahtarını kabul ettiremedim.
API anahtarını https://console.cloud.google.com/ adresinden oluşturdum. Neden yapamadığımı anlayamadım.
Yine de kodlar burada bulunsun. Bir çözen olacaktır.

Sub CalculateDistance()
    Dim startLocation As String
    Dim endLocation As String
    Dim apiKey As String
    Dim url As String
    Dim xmlHttp As Object
    Dim responseText As String
    Dim distance As String
 
    startLocation = Sheets("Sheet1").Range("A1").Value
    endLocation = Sheets("Sheet1").Range("B1").Value
 
    apiKey = "Buraya API anahtarınızı gireceksiniz"
 
    url = "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & _
          Replace(startLocation, " ", "+") & _
          "&destinations=" & _
          Replace(endLocation, " ", "+") & _
          "&key=" & apiKey

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", url, False
    xmlHttp.send

    responseText = xmlHttp.responseText

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "<distance>(.*?)<\/distance>"

    Set matches = regex.Execute(responseText)
    If matches.Count > 0 Then
        distance = matches(0).SubMatches(0)
        Sheets("Sheet1").Range("C1").Value = distance
    Else
        MsgBox "Mesafe bilgisi alınamadı."
    End If
End Sub

 

[TUNCA ERSİN]

Sy. @ÖmerFaruk ;

Teşekkür Ederim. Elinize sağlık