Excel自動轉JSON是一種非常方便的方式，可以將Excel表格中的數據自動轉換為JSON格式并保存為JSON文件。以下是實現Excel自動轉JSON的簡單代碼示例：

Sub exportJSON()
Dim jsonObj As New Scripting.Dictionary
For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim jsonItem As New Scripting.Dictionary
jsonItem("name") = Cells(i, 1).Value
jsonItem("age") = Cells(i, 2).Value
jsonItem("gender") = Cells(i, 3).Value
jsonObj(i - 1) = jsonItem
Next i
Dim jsonStr As String
jsonStr = JsonConverter.ConvertToJson(jsonObj, Whitespace:=2)
Dim fso As Object, ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile("data.json", True)
ts.Write jsonStr
ts.Close
MsgBox "JSON file created successfully!", vbInformation, "Export JSON"
End Sub

以上代碼使用了JSON庫的JsonConverter，該庫可在各種Microsoft Office應用程序中使用，對于Excel自動轉換JSON非常便捷。此外，代碼中還使用了Scripting庫來創建字典對象，實現JSON的格式化。

當你運行這個宏時，它會在當前目錄中創建一個名為“data.json”的JSON文件。該JSON文件將包含表格中每個行中的數據，以JSON格式呈現。

總之，Excel自動轉JSON是一種非常有效的技術，可以將Excel數據轉換為其他應用程序能夠輕松讀取的JSON格式。這對于向Web開發人員共享數據非常有用，也可以用于在不同的應用程序間快速共享數據。