VBA, der Werte aus einer Sammlung erhält? - Json, Excel, Vba, Excel-Vba, Vb6

Ich bin sehr neu in VBA und kann nicht herausfinden, wie man Werte aus einer Sammlung erhält.

Das ist mein Code:

Dim p As Object
Set p = JSON.parse(Response.Content)

Dim links As Object
Set links = p.Item("links")

Im Debugger für "Links" sehe ich:

Ich benutze diese Bibliothek, um json zu analysieren: http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

Der Teil, den ich in json habe, ist:

"links":[
{
"rel":"next",
"href":"www.google.com"
}
]

Wie kann ich hier den Wert "rel" erhalten?

Antworten:

2 für die Antwort № 1

Vergessen Sie nicht den Knall-Operator, der für den Zugriff auf die Sammlung mit dem Schlüssel vorgesehen ist:

links(1)!rel

oder:

links(1)![rel] "When there are spaces or reserved words.

---

3 für die Antwort № 2

Ich werde meine eigene Frage beantworten:

links(1).Item("rel")

hat funktioniert...

Grüße..

---

1 für die Antwort № 3

Verwenden von JavaScript-Funktionen zum Parsen von JSONMit ScriptControl können wir einen Parser in VBA erstellen, der jeden einzelnen Datenpunkt in JSON auflistet. Egal wie verschachtelt oder komplex die Datenstruktur ist, solange wir einen gültigen JSON-Code bereitstellen, gibt dieser Parser eine vollständige Baumstruktur zurück.

Die JavaScript-Methoden Eval, getKeys und getProperty bieten Bausteine ​​zum Überprüfen und Lesen von JSON.

Gekoppelt mit einer rekursiven Funktion in VBA können wirDurchlaufen Sie alle Schlüssel (bis zur n-ten Ebene) in einer JSON-Zeichenfolge. Mithilfe eines Tree-Steuerelements (in diesem Artikel verwendet), eines Wörterbuchs oder sogar eines einfachen Arbeitsblatts können wir die JSON-Daten nach Bedarf anordnen.

Sie können den vollständigen VBA-Code sehen Hier

---