在日常工作中，我們常常需要將Excel表格中的數據導出為其他數據格式以便于使用。而其中JSON格式也是常見格式之一，因為JSON格式方便讀取和處理，適用于數據交換。

下面是使用VBA代碼將Excel表格中的數據導出為JSON格式的方法：

Sub ExportJSON()
Dim rngData As Range
Dim strJSON As String
Dim iRow As Long, iCol As Long
Set rngData = Range("A1").CurrentRegion
strJSON = ""
strJSON = strJSON & "{"
For iRow = 2 To rngData.Rows.Count
If iRow >2 Then
strJSON = strJSON & ","
End If
strJSON = strJSON & """record_" & iRow - 1 & """:{"
For iCol = 1 To rngData.Columns.Count
If iCol >1 Then
strJSON = strJSON & ","
End If
strJSON = strJSON & """" & rngData.Cells(1, iCol).Value & """:""" & rngData.Cells(iRow, iCol).Value & """"
Next iCol
strJSON = strJSON & "}"
Next iRow
strJSON = strJSON & "}"
Open ThisWorkbook.Path & "\data.json" For Output As #1
Print #1, strJSON
Close #1
End Sub

代碼解析：

1. 先定義要導出的單元格及要導出的范圍。

2. 定義一個空字符串strJSON，用于存儲導出的JSON格式字符串。

3. 在strJSON字符串中，先添加一個左中括號，表示該字符串是一個JSON格式的對象。

4. 從表格中遍歷每一行，每一行對應一個JSON格式的對象。

5. 對于每一個JSON格式的對象，先添加一個唯一的record_編號，然后遍歷該行每一列。

6. 每遍歷一列就添加該列的列名和該單元格的值。

7. 最后關閉該JSON對象。

8. 最后將生成的JSON字符串輸出到當前Excel文件所在的目錄下，文件名為"data.json"。

這樣，我們就可以通過VBA代碼將Excel表格中的數據導出為JSON格式，方便以后的數據處理。