Excel是一個非常流行的電子表格軟件，它能夠幫助我們處理數據并生成各種報告。有時我們需要將Excel表格中的數據導出為json格式的數據，這樣能夠方便地用于網絡傳輸和與其他應用程序的交互。

要將Excel表格中的數據導出為json格式的數據，我們可以編寫VBA宏代碼。首先，我們需要打開Excel表格并進入開發人員模式，然后打開Visual Basic編輯器。接下來，我們可以編寫代碼來遍歷Excel表格中的每一行和每一列，并將數據存儲為JSON對象。以下是一個示例代碼：

Sub ExportJSON()
Dim data As New Collection
Dim row As Integer, col As Integer
Dim key As String, value As String
'遍歷每一行和每一列
For row = 1 To ActiveSheet.UsedRange.Rows.Count
For col = 1 To ActiveSheet.UsedRange.Columns.Count
key = Cells(1, col).Value '第一行作為鍵
value = Cells(row, col).Value '每一行的數據作為值
'如果值為數字，則將其存儲為數字類型
If IsNumeric(value) Then
data.Add CInt(value), key
'否則將其存儲為文本類型
Else
data.Add value, key
End If
Next col
'將每一行的數據存儲為單個JSON對象
Dim json As String
json = ConvertToJson(data)
Debug.Print json '輸出JSON字符串
'清空數據集合，準備處理下一行
Set data = Nothing
Set data = New Collection
Next row
End Sub
'將Collection對象轉換為JSON字符串
Function ConvertToJson(data As Collection) As String
Dim json As String
Dim i As Integer
json = "{"
For i = 1 To data.Count
'將鍵和值都轉義為JSON字符串
Dim key As String, value As String
key = QuoteJson(data.key(i))
value = QuoteJson(data(i))
If i >1 Then json = json & ","
json = json & key & ":" & value
Next i
json = json & "}"
ConvertToJson = json
End Function
'將字符串轉義為JSON字符串
Function QuoteJson(str As Variant) As String
QuoteJson = """" & Replace(str, """", "\""") & """"
End Function

在上述代碼中，我們使用Collection對象來存儲每一行中的數據，并使用“鍵-值”對來構建JSON對象。我們還使用了ConvertToJson和QuoteJson函數來格式化輸出JSON字符串，確保可以正確被解析。

最后，我們可以使用Debug.Print將JSON字符串輸出到控制臺，或將其寫入文件以供后續使用。這種方法可以快速將Excel表格中的數據導出為JSON格式的文件，從而方便自己和其他應用程序的使用。