ich benötige Hilfe bei der Auslese einer *JSON Datei in VBA.
Den Code meines Excel Tools, mit dessen Hilfe ich die Entfernung und Fahrzeit zwischen zwei Orten über die Google Distance API auslese hatte ich im Juli noch regelmäßig benutzt. Damals ohne Probleme.
Nun wollte ich heute erneut das Tool verwenden und bekomme eine Fehlermeldung.
Meine API ist noch gültig.
Der Fehler tritt im folgenden Code Abschnitt auf:
bei For Each legs In parsed bekomme ich dann die Fehlermeldung: Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument.
Dim APIResponse As String
Dim parsed As Dictionary, legs As Dictionary
'Entschlüsselt die erhaltene .JSON Datei.
APIResponse = myRequest.responseText
Set parsed = JsonConverter.ParseJson(APIResponse)
'Ließt die Fahrzeit (Sekunden) und Fahrstrecke(Meter) aus der .JSON datei aus.
Sekunden = 0
Fahrstrecke = 0
For Each legs In parsed("routes")(1)("legs")
Sekunden = Sekunden + legs("duration")("value")
Fahrstrecke = Fahrstrecke + legs("distance")("value")
Next legs
Die JSON Datei entschlüssel ich mit Hilfe des auf GIT Hub frei verfügbaren JSONConverters von Tim Hall.(https://github.com/VBA-tools/VBA-JSON).
Der gesamte Code ist noch länger, funktioniert jedoch bis zu diesem Abschnitt fehlerlos.
Über eure Hilfe wäre ich sehr danbkbar.
Viele Grüße,
Christian