在Excel中,我們可以使用VBA來進行JSON轉換,將JSON類型的數據轉換為Excel中的表格數據,便于處理和分析。下面是一個簡單的示例,演示了如何使用VBA進行JSON轉換:
Sub jsonToExcel() Dim jsonStr As String Dim jsonObj As Object Dim row As Long Dim col As Long jsonStr = "[{""name"":""Tom"",""age"":20},{""name"":""Kate"",""age"":25},{""name"":""Jack"",""age"":30}]" Set jsonObj = JsonConverter.ParseJson(jsonStr) ' 清空表格并設置標題 Sheets(1).Cells.ClearContents Sheets(1).Range("A1:B1").Value = Array("姓名", "年齡") ' 遍歷JSON數據并將其填充到表格中 row = 2 For Each item In jsonObj col = 1 Sheets(1).Cells(row, col).Value = item("name") col = col + 1 Sheets(1).Cells(row, col).Value = item("age") row = row + 1 Next End Sub
上述代碼中,我們首先定義了一個JSON類型的字符串,然后使用JsonConverter.ParseJson方法將其轉換為VBA中的對象。接著,我們清空了Excel中的表格并設置了表格的標題,然后遍歷JSON對象中的每一項,并將其填充到表格中。這樣,我們就可以方便地將JSON數據轉換為Excel表格數據進行處理和分析。