Fehler 91 Objektvariable oder With-Blockvariable

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dirk,
ich hatte Dir ja nur eine Ergänzung gezeigt, wie der Fehler abgefangen werden kann. Hier noch mal etwas abgewandelt:

'Abfrage senden
objXML.send
If objXML.responsetext Like "*<status>OK</Status>*" Then
'Abfrageergebnis (Text) aufnehmen
  xmlDoc.LoadXML objXML.responsetext
'Zeit auslesen /Value=Sekunden /Text = Minuten mit Angabe "Minuten"
  Set xmlNod = xmlDoc.SelectSingleNode("//row/element/duration/value")
'Zeit in Stundenzelle eintragen, Rueckgabewert / 86400
  If Not xmlNod Is Nothing Then Cells(lCnt, iCnt2 + 1) = CDate(xmlNod.Text / 86400)
'Entfernung auslesen /Value=Meter /Text = Kilometer mit Angabe "km"
  Set xmlNod = xmlDoc.SelectSingleNode("//row/element/distance/value")
'Entfernung in km zelle eintragen, Rueckgabewert / 1000
  If Not xmlNod Is Nothing Then Cells(lCnt, iCnt2) = xmlNod.Text / 1000
'Ende Schleife ueber alle DestinationAddress anhand Eintraegen in Spalte A
Else
  Debug.Print "Abfrage origins=" & strOAddr & "&destinations=" & strDAddr & " hat nicht geklappt"
  Debug.Print objXML.responsetext
End If

Mal funktioniert es, mal nicht. An ein Zeitproblem glaube ich jetzt nicht mehr.
Jetzt kannst Du bei Fehlfunktionen den responstext im Direktbereich nachlesen. Da taucht ggf. der Hinweis auf, dass die Abfrageform ohne einen API-Key veraltet sei. Google hat da wohl im Juni diesen Jahres etwas verändert. Dazu solltest Du mal googlen, wie man den bekommen kann und den an Deine Abfrage hängen. Leider weiß ich auch nicht mehr darüber und habe ZZt auch keine Zeit, mich damit zu beschäftigen.
Mögliche Fehlermeldung:
<status>OVER_QUERY_LIMIT</status>
<error_message>Keyless access to Google Maps Platform is deprecated. Please use an API key with all your API calls to avoid service interruption. For further details please refer to http://g.co/dev/maps-no-account</error_message>

Hoffe Du bekommst es hin, viel Glück.
VG KH

Dirk
Dein Code wird ohne die Beschaffung eine Google-API-Schlüssels nicht mehr lange (ab und zu) Laufen.
Da du offensichtlich Code aus Foren zusammenkopiert hast, den du nicht verstehst, beschäftigst du jetzt Helfer, die ebenso offensichtlich ebensowenig über die Preis- und Modellanpassungen von Google bezüglich Maps, Routen und Distanzberechnungen vorgenommen hat.
Webservice Aufrufe liefern nur noch zufällig eine richtige Antwort mit den in diversen Foren kursierende Codes. Neu müssen sie diese Form aufweisen:

https://maps.googleapis.com/maps/api/distancematrix/json?origins=Seattle&destinations=San+Francisco&key=YOUR_API_KEY

Das wichtigste der YOUR_API_KEY, dieser muss individuell bei Google angefordert werden unter
Get API Key dazu muss du ein registriertes Google-Account haben, das Verrechnung und Zahlungen zulässt.
Das was bis jetzt hier im Forum als Antworten auf deine und ähnliche Anfrage bis jetzt geliefert wurde, nützt alles nix, wenn nicht obige Voraussetzungen geschaffen sind!
...und im Übrigen finde ich es nicht schön von Dir einfach einen neuen Thread zu eröffnen, und damit Helfer für nichts zu beschäftigen. -> siehe: hier und hier und hier und hier
Also bitte: Zuerst recherchieren-dann posten-dann antworten...
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

Fehler 91 Objektvariable oder With-Blockvariable

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler 91 Objektvariable oder With-Blockvariable

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread