Excel VBA可以使用JSON來處理數據。JSON是JavaScript對象表示法的縮寫,是一種輕量級的數據交換格式。VBA中解析JSON需要使用JsonConverter類庫。
'需要引用 JsonConverter.dll Sub testJson() Dim json As Object Set json = JsonConverter.ParseJson("{'name': 'John', 'age': 30, 'city': 'New York'}") Debug.Print json("name") '輸出:John Debug.Print json("age") '輸出:30 Debug.Print json("city") '輸出:New York End Sub
JsonConverter.ParseJson()方法會將JSON字符串轉為JsonDictionary對象,可以通過它的鍵獲取對應的值。
'Json數組的解析 Sub testJsonArray() Dim json As Object Set json = JsonConverter.ParseJson("[{'name': 'John', 'age': 30}, {'name': 'Mike', 'age': 25}]") Dim item As Object For Each item In json Debug.Print item("name") '輸出:John、Mike Debug.Print item("age") '輸出:30、25 Next End Sub
如果JSON字符串是數組形式,那么解析出來的對象是一個JsonArray對象,可以通過For Each循環來遍歷數組中的每一個元素,并通過鍵來獲取對應的值。
此外,JsonConverter類庫還提供了一些其他方法和屬性,可以進行更復雜的JSON解析操作。
上一篇mysql修改某一列命令
下一篇css3中圖片的縮放