Analysiere JSON-Array in Excel VBA

Question

Ich habe versucht, die Methode in einem anderen Thread zu folgen, aber es gibt bestimmte Teile im Code, die ich nicht verstehe, und es hat nicht für mich funktioniert. Und ich könnte kommentieren, da ich 50 Reputationen nicht erreicht habe. (Ich habe die Antwort von dem anderen Thread)

Ich versuche, auf Json Antwort wie folgt zuzugreifen, möchte ich das Array nach Details in Excel horizontal (Spalte A1-A6), aber in dem anderen Beitrag, Ich verstehe nicht, was die Skriptsteuerungsmethode ist.

Und es gab keine Kommentarzeile zu erklären, was es ist. Und ich versuchte, es zu benutzen, nur den Code bei sc.Eval fehlgeschlagen „var obj = (“ & json & „)“

Auch die Linie json = {bekommen json hier} ist fehlgeschlagen, stattdessen ersetzt ich das Json = resp, wobei resp die Ausgabe von der API zurückgegeben wird.

Ihre Hilfe wird sehr geschätzt.

Sub Tester() 

    Dim json As String 
    Dim sc As Object 
    Dim o 

    Set sc = CreateObject("scriptcontrol") 
    sc.Language = "JScript" 

    json = {get your json here} 

    sc.Eval "var obj=(" & json & ")" 'evaluate the json response 
    'add some accessor functions 
    sc.AddCode "function getSentenceCount(){return obj.sentences.length;}" 
    sc.AddCode "function getSentence(i){return obj.sentences[i];}" 

    Debug.Print sc.Run("getSentenceCount") 

    Set o = sc.Run("getSentence", 0) 
    Debug.Print o.trans, o.orig 
End Sub 

JSON-Antwort von API

 {"details":[ 
     { 
     "trade":"Micro", 
     "trade_tenor":"5yr+" 
     }, 
     { 
     "trade":"Odd", 
     "trade_tenor":"10yr+" 
     }, 
     { 
     "trade":"Round", 
     "trade_tenor":"20yr+" 
     } ]} 

Answer 1

braucht nur einige kleinere Änderungen:

Sub Tester() 

    Dim json As String 
    Dim sc As Object 
    Dim o, i, num 

    Set sc = CreateObject("scriptcontrol") 
    sc.Language = "JScript" 

    json = Range("A1").Value '{get your json here} 

    sc.Eval "var obj=(" & json & ")" 'evaluate the json response 
    'add some accessor functions 
    sc.AddCode "function getTradeCount(){return obj.details.length;}" 
    sc.AddCode "function getTrade(i){return obj.details[i];}" 

    num = sc.Run("getTradeCount") 

    For i = 0 To num - 1 
     Set o = sc.Run("getTrade", i) 
     Debug.Print o.trade, o.trade_tenor 
    Next i 

End Sub