Excel VBA可以使用JSON來(lái)處理數(shù)據(jù)。JSON是JavaScript對(duì)象表示法的縮寫,是一種輕量級(jí)的數(shù)據(jù)交換格式。VBA中解析JSON需要使用JsonConverter類庫(kù)。
'需要引用 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()方法會(huì)將JSON字符串轉(zhuǎn)為JsonDictionary對(duì)象,可以通過(guò)它的鍵獲取對(duì)應(yīng)的值。
'Json數(shù)組的解析 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字符串是數(shù)組形式,那么解析出來(lái)的對(duì)象是一個(gè)JsonArray對(duì)象,可以通過(guò)For Each循環(huán)來(lái)遍歷數(shù)組中的每一個(gè)元素,并通過(guò)鍵來(lái)獲取對(duì)應(yīng)的值。
此外,JsonConverter類庫(kù)還提供了一些其他方法和屬性,可以進(jìn)行更復(fù)雜的JSON解析操作。
上一篇mysql修改某一列命令
下一篇css3中圖片的縮放