Excel是一款常用的電子表格軟件，而JSON則是一種輕量級的數據交換格式。當我們需要對Excel表格中的數據進行處理或者與其他系統進行數據交換時，我們可以將Excel中的數據輸出為JSON文件。

Sub ExportJSONFile()
Dim objFSO As Object
Dim objFile As Object
Dim iRow As Integer, iCol As Integer
Dim iLastRow As Long, iLastCol As Long
Dim sHeader As String, sData As String, sRow As String, sJson As String
'獲取Excel表格中的最后一行和最后一列
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
'拼接JSON文件頭
sHeader = "{""data"": ["
'遍歷Excel表格中的每一行和每一列，將數據轉換為JSON格式
For iRow = 2 To iLastRow
sRow = ""
For iCol = 1 To iLastCol
'拼接行數據
sRow = sRow & """" & Cells(1, iCol) & """:" & """" & Cells(iRow, iCol) & ""","
Next iCol
'去掉行數據最后一個逗號
sRow = Left(sRow, Len(sRow) - 1)
sData = sData & "{" & sRow & "},"
Next iRow
'去掉最后一行的逗號
sData = Left(sData, Len(sData) - 1)
'拼接JSON文件尾
sJson = sHeader & sData & "]}"
'保存JSON文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\output.json", True)
objFile.Write sJson
objFile.Close
MsgBox "JSON文件已成功輸出至C盤根目錄下的output.json文件！", vbInformation, "導出JSON文件"
End Sub

在上面的代碼中，我們通過遍歷Excel表格中的每一行和每一列，將數據轉換為JSON格式，并拼接成完整的JSON文件。最后，我們使用Scripting.FileSystemObject對象的CreateTextFile方法創建一個名為output.json的文件，并將JSON格式的數據輸出到該文件中。

使用上述代碼，我們可以輕松地將Excel表格中的數據輸出為JSON文件，在數據處理和交換方面提供了非常大的便利性。