Excel是一款強大的辦公軟件，支持導入和導出多種格式的數據。其中，導出自由格式json數據是一項廣受歡迎的功能，本文將介紹如何在Excel中實現這一功能。

' 定義變量
Dim dict, i, j, k, LastRow, LastCol As Variant
' 設置變量初始值
Set dict = CreateObject("Scripting.Dictionary")
LastRow = ActiveSheet.UsedRange.Rows.Count
LastCol = ActiveSheet.UsedRange.Columns.Count
' 循環遍歷行和列
For i = 2 To LastRow
' 定義內部循環字典
Dim innerDict
Set innerDict = CreateObject("Scripting.Dictionary")
For j = 1 To LastCol
' 將單元格的值添加到內部循環字典中
innerDict.Add ActiveSheet.Cells(1, j).Value, ActiveSheet.Cells(i, j).Value
Next j
' 將內部循環字典添加到主字典中
dict.Add i - 1, innerDict
Next i
' 將字典轉換為json字符串
Dim json
json = JsonConverter.ConvertToJson(dict)
' 導出json文件
Open "D:\output.json" For Output As #1
Print #1, json
Close #1

使用上述代碼可以實現將Excel中的數據導出為自由格式json。需要注意的是，在使用代碼前需要先添加JsonConverter模塊才能正常運行。