Excel是一個非常常用的辦公軟件，而json是一種輕量級的數據交換格式，因此在很多情況下我們需要將Excel中的數據轉換為json格式，這就需要用到Excel json解析。

下面是一個簡單的示例代碼：

'引用需要的庫
Private Sub Workbook_Open()
Dim cell As Range
Dim row As Range
Dim dict As Object
Dim i As Integer
'新建json對象
Set dict = CreateObject("Scripting.Dictionary")
'獲取數據范圍
Set row = ActiveSheet.Range("A2:A" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row)
'循環遍歷行
For Each cell In row
'將數據存入json對象
dict("name" & i) = cell.Value
i = i + 1
Next cell
'將json對象轉換為字符串并輸出到單元格
ActiveSheet.Range("B2").Value = JsonConverter.ConvertToJson(dict)
End Sub

代碼中使用了Scripting.Dictionary對象來存儲Excel中的數據，將其轉換為json格式字符串后，輸出到Excel的另一個單元格中。

需要注意的是，在使用Excel json解析時，需要先引用JsonConverter庫，并在VBA代碼中添加相應的引用。

總之，Excel json解析是一種非常實用的功能，可以方便地將Excel中的數據轉換為json格式，用于各種數據交換和數據處理場景。