VBA從集合中獲取值？

Question

我是VBA的新手，我無法弄清楚如何從Collection中獲取值。

這是我的代碼：

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

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

在“鏈接”的調試器中，我看到：

我正在使用這個庫來解析json： http ： //www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

我在json的部分是：

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

如何在這里獲得“rel”的值？

Answer 1

我會回答我自己的問題：

links(1).Item("rel")

工作...

問候..

Answer 2

不要忘記bang操作符，用於按鍵訪問集合：

links(1)!rel

要么：

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

Answer 3

使用解析JSON的JavaScript功能，在ScriptControl之上，我們可以在VBA中創建一個解析器，它將列出JSON中的每個數據點。 無論數據結構如何嵌套或復雜，只要我們提供有效的JSON，此解析器將返回完整的樹結構。

JavaScript的Eval，getKeys和getProperty方法提供了用於驗證和讀取JSON的構建塊。

結合VBA中的遞歸函數，我們可以遍歷JSON字符串中的所有鍵（最多到第n級）。 然后使用Tree控件（在本文中使用）或字典甚至在簡單的工作表上，我們可以根據需要排列JSON數據。

您可以在此處查看完整的VBA代碼