在 Excel VBA 中解析 JSON 数组

Question

我尝试在另一个线程中遵循该方法，但是代码中的某些部分我不理解并且它对我不起作用。我可以发表评论，因为我还没有达到 50 名声望。 （我包括了另一个线程的响应）

我正在尝试访问 Json 响应，如下所示，我想将细节后的数组横向放入 excel（A1-A6 列），但是在另一篇文章中，我不明白脚本控制方法是什么。

并且没有任何注释行来解释它是什么。我尝试使用它，代码只是在 sc.Eval "var obj=(" & json & ")" 失败

另外， json = {get your json here} 行失败，而是我将其替换为 Json = resp ，其中 resp 是从 API 返回的输出。

非常感谢您的帮助。

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

来自 API 的 JSON 响应

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

Answer 1

只需要一些小的修改：

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