Excel是一款廣泛應用于數據處理和分析的軟件。但是有時候我們需要將Excel中的數據轉換為JSON格式的數據，以便于在開發中使用。那么該如何實現呢？下面是一個簡單的Excel文件轉換為JSON文件的示例代碼：

Sub ExcelToJson()
Dim aryData() As Variant
Dim strJSONString As String
Dim i As Long, j As Long
aryData = ActiveSheet.UsedRange.Value
'獲取行數和列數
Dim row As Long, col As Long
row = UBound(aryData, 1)
col = UBound(aryData, 2)
'使用Dictionary對象保存數據
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
'將數據保存到Dictionary中
Dim key As String
For i = 2 To row
key = aryData(i, 1)
Set dict(key) = CreateObject("Scripting.Dictionary")
For j = 2 To col
dict(key)(aryData(1, j)) = aryData(i, j)
Next j
Next i
'將Dictionary對象轉換為JSON字符串
Dim jsonObj As Object
Set jsonObj = CreateObject("Scripting.Dictionary")
jsonObj("data") = dict
strJSONString = JsonConverter.ConvertToJson(jsonObj)
'保存JSON文件
Dim filePath As String
filePath = Application.GetSaveAsFilename("output", "JSON Files (*.json), *.json")
If filePath<>"False" Then
Dim fso As New FileSystemObject
Dim stream As TextStream
Set stream = fso.CreateTextFile(filePath, True)
stream.Write strJSONString
stream.Close
End If
End Sub

這段代碼中，我們首先獲取了當前活動工作表的數據范圍，并且利用Dictionary對象保存了行列數據，然后將Dictionary對象轉換為JSON字符串，并保存到指定的文件中。通過這段代碼，我們可以輕松地將Excel文件中的數據轉換為JSON格式的數據，適用于各種數據開發場合。