Excel 是一款功能強大的表格處理軟件，而 JSON 是一種輕量級的數據格式，它們之間能否互相轉換呢？答案是肯定的。在 Excel 中生成 JSON 數據相當簡單，可幫助您將數據轉換為易于處理的格式。

我們可以通過以下代碼將 Excel 表格中的數據轉換為 JSON 格式：

Sub ConvertToJSON()
Dim Json As Object
Dim Cell As Range
Dim i As Integer
Dim j As Integer
Dim rng As Range
Set rng = Range("A1:C3")
Set Json = CreateObject("Scripting.Dictionary")
For i = 2 To rng.Rows.Count
Set Json(i - 2) = CreateObject("Scripting.Dictionary")
j = 0
For Each Cell In rng.Rows(i).Cells
Json(i - 2).Add rng.Rows(1).Cells(j + 1).Value, Cell.Value
j = j + 1
Next Cell
Next i
Range("D1").Value = JsonToString(Json)
End Sub
Private Function JsonToString(Json As Object) As String
Dim ScriptEngine As Object
Dim ScriptCode As String
Set ScriptEngine = CreateObject("MSScriptControl.ScriptControl")
ScriptEngine.Language = "JScript"
ScriptCode = "JSON.stringify(" & Json.Items(0).Value & ")"
JsonToString = ScriptEngine.Eval(ScriptCode)
Set ScriptEngine = Nothing
End Function

上述代碼使用 Scripting.Dictionary 對象將 Excel 表格中的數據存儲到 JSON 對象中。然后我們使用 JScript 腳本將 JSON 對象轉換為字符串，并將其輸出到單元格 D1 中。

這樣，您就可以在 Excel 表格中生成 JSON 數據了，如果您需要將 JSON 數據導出到其他應用程序中，可以直接將單元格內容復制并粘貼到文本編輯器中，此時您將得到一個標準的 JSON 格式數據。