在日常工作中，我們常常需要將Excel表格中的數(shù)據(jù)導(dǎo)出為其他數(shù)據(jù)格式以便于使用。而其中JSON格式也是常見格式之一，因?yàn)镴SON格式方便讀取和處理，適用于數(shù)據(jù)交換。

下面是使用VBA代碼將Excel表格中的數(shù)據(jù)導(dǎo)出為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. 先定義要導(dǎo)出的單元格及要導(dǎo)出的范圍。

2. 定義一個(gè)空字符串strJSON，用于存儲(chǔ)導(dǎo)出的JSON格式字符串。

3. 在strJSON字符串中，先添加一個(gè)左中括號(hào)，表示該字符串是一個(gè)JSON格式的對(duì)象。

4. 從表格中遍歷每一行，每一行對(duì)應(yīng)一個(gè)JSON格式的對(duì)象。

5. 對(duì)于每一個(gè)JSON格式的對(duì)象，先添加一個(gè)唯一的record_編號(hào)，然后遍歷該行每一列。

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

7. 最后關(guān)閉該JSON對(duì)象。

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

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