Excel是一款廣泛使用的電子表格軟件，為了方便數據的交互和傳輸，有時需要將Excel中的數據轉換為JSON格式。Excel VBA提供了輸出JSON的宏的功能，下面是一個簡單的示例

Sub OutputToJSON()
Dim jsonData As String
Dim rowArray As Variant
Dim rowDict As Object
'初始化一個空的Dictionary對象
Set rowDict = CreateObject("Scripting.Dictionary")
'獲取Excel表格的行數和列數
Dim numRows As Integer
Dim numCols As Integer
numRows = ActiveSheet.UsedRange.Rows.Count
numCols = ActiveSheet.UsedRange.Columns.Count
'循環遍歷Excel表格的每一行，將每一行的數據存儲到Dictionary對象中
For i = 2 To numRows
Set rowDict = CreateObject("Scripting.Dictionary")
For j = 1 To numCols
rowDict(ActiveSheet.Cells(1, j).Value) = ActiveSheet.Cells(i, j).Value
Next j
'將Dictionary對象轉換為JSON格式的字符串
rowArray = Array(rowDict)
jsonData = JsonConverter.ConvertToJson(rowArray)
'輸出JSON格式字符串
Debug.Print jsonData
Next i
End Sub

在這個宏中，我們首先聲明了一些變量，包括jsonData、rowArray和rowDict。然后，我們使用CreateObject函數創建了一個空的Dictionary對象。

接下來，我們使用ActiveSheet對象獲取了Excel表格的行數和列數，并使用嵌套的循環遍歷了每一行和每一列。

在循環內部，我們創建了一個新的Dictionary對象，并使用循環將每一行的數據添加到Dictionary對象中。

最后，我們使用JsonConverter對象將每個Dictionary對象轉換為JSON格式的字符串，并使用Debug.Print語句將其輸出。

通過這個宏，我們可以將Excel表格中的數據轉換為JSON格式，并方便地與其他應用程序進行數據交互。