Excel是一款非常常用的電子表格軟件，而JSON則是一種輕量級的數據交換格式。將Excel中的數據輸出到JSON文件可以方便地在不同系統之間共享數據。下面我們來看看如何將Excel中的數據輸出到JSON文件。

首先，在Excel中打開需要導出的文件。選擇需要輸出的數據，并將它們復制到新的Excel文件中。新建一個Visual Basic for Applications（VBA）宏，可以通過“開發”選項卡中的“Visual Basic”按鈕訪問此功能。

Sub ExportToJSON()
Dim s As String
Dim r As Range
Dim arr() As Variant
Dim i As Long, j As Long
Dim fso As Object
Dim ts As Object
Set r = Selection
arr = r
s = "{""data"": ["
For i = LBound(arr) To UBound(arr)
s = s & "{"
For j = LBound(arr, 2) To UBound(arr, 2)
s = s & """" & arr(1, j) & """: """ & arr(i, j) & """"
If j< UBound(arr, 2) Then s = s & ","
Next j
s = s & "}"
If i< UBound(arr) Then s = s & ","
Next i
s = s & "]}"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile("output.json", True)
ts.Write s
ts.Close
End Sub

這段代碼可以將選定的數據轉換成JSON格式，并將其輸出到名為“output.json”的文件中。輸出JSON文件時，要確保文件名的擴展名為“.json”。

在VBA中，變量可以通過聲明其數據類型來定義。在上面的代碼中，使用的數據類型有String（字符串）和Variant（變體）。String表示文本，Variant表示可以包含多種不同數據類型的數據。

代碼中的行“Dim arr() As Variant”用于定義一個數組，該數組將包含從選擇范圍中讀取的所有數據。

行“Set r = Selection”將選擇矩形傳遞給變量r。我們將在這個選定的范圍上迭代數組并構建JSON字符串。最終，JSON字符串將寫入名為“output.json”的文件。