Merhaba Arkadaşlar Excel de Yaklaşık 400 e yakın kordinatın mesafe matrisini çıkarmaya çalışıyorum. Google API ile işlemi sağlamak için aşağıdaki içeriği buldum. daha sonra Google Distance Matrix API içeriğinden giderek bir key edindim. Fakat denemelerim olumsuz sonuçlandı makroyu çalıştırıyorum fakat -1 sonucu çıkmakta bilgi edindiğim sitelelerin birinde şu şekilde bir uyarı görmekteyim """İşlev -1 mi döndürüyor yoksa düzgün çalışmıyor mu? Doğrudan bir İnternet bağlantınız olduğundan emin olun ! Yukarıdaki XMLHttpRequest Nesnesi, Office ortamları için yaygın olan proxy sunucularını işleyecek şekilde yapılandırılmamıştır ."""

Konu ve sorun hakkında bilgisi olan arkadaşlar yardımcı olabilir mi acaba bu sorunu nasıl giderebilirim veya Kordinatlar üzerinden Mesafe matrislerini (Gerçek Yol verileri) nasıl elde edebilirim ?


Public Function GetDuration(start As String, dest As String)
Dim firstVal As String, secondVal As String, lastVal As String
firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins="
secondVal = "&destinations="
lastVal = "&mode=car&language=en&sensor=false&key=USER_K EY"
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal
objHTTP.Open "GET", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")
If InStr(objHTTP.responseText, """duration"" : {") = 0 Then GoTo ErrorHandl
Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = "duration(?:.|n)*?""value"".*?([0-9]+)": regex.Global = False
Set matches = regex.Execute(objHTTP.responseText)
tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
GetDuration = CDbl(tmpVal)
Exit Function
ErrorHandl:
GetDuration = -1
End Function