Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Sperrt Google meine Anfragen aus Excel-Makro?
#1
Hallo!
Ich habe eine kleines Excel-Makro zusammen gebastelt, mit dem ich Google Maps Daten abfragen kann (unten).
Nun wollte ich eine 80x80 Matrix mit Entfernungen füllen, und jetzt bekomme ich nur noch #Werte, nachdem ca. die Hälfte der Tabelle erfolgreich gefüllt wurde, kann ich die Funktion jetzt nicht mehr so ausführen, dass ein Ergebnis kommt.
Sperrt Google meine Anfragen?

Danke und viele Grüße
Björn

Public Function GetGoogleDistance(strOAddr As String, strDAddr As String)
Dim objXML As Object 'fuer XML-"String"
Dim xmlDoc As Object
Dim xmlNod As Object
Set objXML = CreateObject("Msxml2.XMLHTTP")
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
       strOAddr = ReplaceGermans(strOAddr)
       strDAddr = ReplaceGermans(strDAddr)
      
       objXML.Open "POST", "http://maps.googleapis.com/maps/api/dist...ml?origins=" & strOAddr & "&destinations=" & strDAddr & "&language=de-DE&sensor=false", False
        'Abfrageheader
        objXML.setRequestHeader "Content-Type", "content=text/html; charset=UTF-8"
        'Abfrage senden
        objXML.send
        'Abfrageergebnis (Text) aufnehmen
        xmlDoc.LoadXML objXML.responseText
       
        Set xmlNod = xmlDoc.SelectSingleNode("//row/element/distance/value")
        'Entfernung in km zelle eintragen, Rueckgabewert / 1000
        GetGoogleDistance = xmlNod.Text / 1000
End Function
Antworten Top
#2
Hi,
schau mal diesen Beitrag http://www.clever-excel-forum.de/Thread-...nen?page=2&highlight=google+maps

In Post #18 hat André dazu was geschrieben. Scheint so das Google das Zugreifen überwacht und dann reagiert.
Mit freundlichen Grüßen  :)
Michael
[-] Folgende(r) 1 Nutzer sagt Danke an Zwergel für diesen Beitrag:
  • Loggerhead
Antworten Top
#3
Hi,

Stand 26.02
Maps Distance Matrix API

Kostenlos bis zu 2.500 Aufrufen pro Tag

Preise und Nutzungsmodelle, sind hier zu finden.
https://developers.google.com/maps/prici...ans/?hl=de
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
[-] Folgende(r) 1 Nutzer sagt Danke an chris-ka für diesen Beitrag:
  • Loggerhead
Antworten Top
#4
(26.02.2016, 09:44)chris-ka schrieb: Kostenlos bis zu 2.500 Aufrufen pro Tag

Hi Chris,
danke für die Auskunft. Demnach funktioniert die Formel nach 24h wieder?
Bin mal gespannt!

Was bedeutet: Feedback nicht vergessen?

Beste Grüße Björn
Antworten Top
#5
Hallo Loggerhead,

Feedback nicht vergessen
Ist in meiner Signatur und bedeutend einfach nur das man eine Rückmeldung geben sollte.
Passt, Passt nicht. Danke, usw..
So wie ich es gerade auf deine Frage mache.

lg
Chris
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#6
@Björn:
Du hast 6.400 Anfragen.
Ziehe die Formel in die ersten 2.134 Zellen,  :21:
lasse sie berechnen,
kopiere die Zellen und füge sie an gleicher Stelle als Wert ein.
Das gleiche Spielchen an den nächsten zwei Tagen mit den nächsten Zellen.
Dann kannst Du Montag damit arbeiten.  :19:

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste