Wie kann ich JSON von einem HTTP-Endpunkt aus in Excel auf MacOS abrufen und analysieren?

Question

Ich habe How can I send an HTTP POST request to a server from Excel using VBA?

und the MacOS-friendly response gesehen, die beschreibt, wie Daten von einem HTTP-Endpunkt abzurufen Querytables verwenden. Es zeigt, wie eine einzelne Zeichenfolge abgerufen und in eine Zelle eingefügt wird.

Alles gut. Jetzt möchte ich mehr als einen einzelnen Wert abrufen. Es ist eine große JSON-Zeichenfolge, und ich möchte es in Excel VBA nachbearbeiten, bevor Sie eine oder mehrere Zellen auffüllen.

Wie ist das möglich?

Ich kann mir eine Möglichkeit vorstellen - platzieren Sie das Ergebnis der QueryTables-Sache in eine verborgene Zelle, und bearbeiten Sie anschließend die versteckte Zelle, um andere Zellen zu füllen. Es gibt ein paar JSON-Bibliotheken für VBA, die ich noch nicht ausgewertet habe.

Aber das scheint ziemlich hacky. Wirklich möchte ich mich nicht darauf verlassen, den JSON als Wert in einer Zelle zu speichern. Ich möchte es nur in einer Variablen in meinem VBA-Code speichern. So als ob ich CreateObject ("MSXML2.ServerXMLHTTP") verwenden würde. (NB: CreateObject() ist nicht verfügbar in Excel auf MacOS).

Und ich verstehe, dass die beste Antwort hier sein könnte: Holen Sie sich einen Windows-Rechner, wenn Sie Anwendungen in Excel ausführen möchten.

Answer 1

können Sie die Worksheets(0).QueryTable Methode in VBA verwenden. Schauen Sie sich einfach das Handbuch an oder googlen Sie es. Sie müssen also Ihre JSON-Zeichenfolge nicht in einer Zelle speichern.

Oder ich habe so etwas wie

verwendet

Public Function GetWebSource(ByRef URL As String) As String 
    Dim xml As IXMLHTTPRequest 
    On Error Resume Next 
    Set xml = CreateObject("Microsoft.XMLHTTP") 
    With xml 
     .Open "GET", URL, False 
     .send 
     GetWebSource = .responseText 
    End With 
    Set xml = Nothing 
End Function 

einen JSON-String zum Download bereit.

Suchen Sie nach Parsern. Somehting wie Parsing JSON in Excel VBA sollte Ihre Bedürfnisse erfüllen.