Excel是一款非常實用的數據處理軟件，而JSON格式則是Web開發中常用的數據交互格式。那么如何將Excel中的數據轉換為JSON格式呢？本文將介紹使用VBA代碼生成JSON格式文件的方法。

首先，我們需要在Excel中添加VBA模塊，將下面的代碼復制粘貼到模塊中：

Sub Excel2Json()
Dim jsonFile As Object
Dim jsonObject As Object
Set jsonFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("example.json", True) 'example.json為生成的JSON文件名
Dim sourceSheet As Worksheet
Set sourceSheet = ActiveSheet
Dim rowCount As Long
Dim columnCount As Integer
Dim headers As Variant
Dim data As Variant
rowCount = sourceSheet.Range("A1").CurrentRegion.Rows.Count
columnCount = sourceSheet.Range("A1").CurrentRegion.Columns.Count
headers = sourceSheet.Range("A1").Resize(1, columnCount).Value
data = sourceSheet.Range("A2").Resize(rowCount - 1, columnCount).Value
Set jsonObject = CreateObject("Scripting.Dictionary")
jsonObject.Add "headers", headers
jsonObject.Add "data", data
jsonFile.WriteLine JsonConverter.ConvertToJson(jsonObject) 'JsonConverter為JSON格式轉換腳本庫
jsonFile.Close
End Sub

接下來，我們需要將JSON格式的轉換腳本庫導入VBA，方法如下：

1. 下載VBA-JSON的壓縮包
2. 解壓縮后，將里面的JsonConverter.bas文件導入VBA
3. 在Excel2Json()函數中調用JsonConverter即可實現JSON格式轉換

使用上述代碼即可在Excel中生成JSON格式文件，讓我們更加便捷地在Web開發中使用表格數據。