Excel是一款非常受歡迎的電子表格軟件，我們可以通過它輕松地處理大量數據。而JSON（JavaScript Object Notation）是一種輕量級的數據交換格式，廣泛應用于各種Web應用程序和API接口。

將Excel表導出為JSON格式可以方便我們使用和傳輸數據。Excel模塊中的宏可以很方便地實現這項工作。

Sub ExportJSON()
Dim arr() As Variant
Dim rowNum As Long, colNum As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileStream = fso.CreateTextFile("data.json", True)
rowNum = ActiveSheet.UsedRange.Rows.Count
colNum = ActiveSheet.UsedRange.Columns.Count
ReDim arr(1 To rowNum - 1, 1 To colNum)
For i = 2 To rowNum
For j = 1 To colNum
arr(i - 1, j) = ActiveSheet.Cells(i, j).Value
Next j
Next i
jsonStr = "["
For i = 1 To UBound(arr, 1)
jsonStr = jsonStr & "{"
For j = 1 To UBound(arr, 2)
jsonStr = jsonStr & """" & ActiveSheet.Cells(1, j).Value & """"
jsonStr = jsonStr & ":"
If IsNumeric(arr(i, j)) Then
jsonStr = jsonStr & arr(i, j)
Else
jsonStr = jsonStr & """" & arr(i, j) & """"
End If
If j<>UBound(arr, 2) Then
jsonStr = jsonStr & ","
End If
Next j
jsonStr = jsonStr & "}"
If i<>UBound(arr, 1) Then
jsonStr = jsonStr & ","
End If
Next i
jsonStr = jsonStr & "]"
fileStream.Write jsonStr
fileStream.Close
End Sub

通過上面的代碼，我們將Excel表格中的數據轉換成為了JSON格式的字符串，可以保存在本地硬盤上的data.json文件中。我們可以通過以下網站驗證生成的字符串是否正確：

https://jsonlint.com/

通過這個方法，我們可以很方便地將Excel表格中的數據導出為JSON格式，為我們的數據處理工作帶來了很大的便利。