Excel 和 JSON 是兩種流行的數(shù)據(jù)格式，其中 Excel 是用于電子表格和數(shù)據(jù)分析工具，而 JSON 是一種用于數(shù)據(jù)交換和互聯(lián)網(wǎng)通信的數(shù)據(jù)格式。在我們的日常工作中，我們可能需要將 Excel 中的數(shù)據(jù)導出為 JSON，以便于在網(wǎng)站或應(yīng)用程序中使用。在本文中，我們將介紹如何使用 Excel VBA 實現(xiàn) Excel 到 JSON 的導出。

Sub ExportToJSON()
Dim jsonObj As Object
Set jsonObj = CreateObject("Scripting.Dictionary")
Dim i As Long, j As Long
Dim ws As Worksheet
Set ws = ActiveSheet
For i = 2 To ws.Cells(Rows.Count, "A").End(xlUp).Row
Dim rowObj As Object
Set rowObj = CreateObject("Scripting.Dictionary")
For j = 1 To ws.Cells(i, Columns.Count).End(xlToLeft).Column
rowObj(CStr(ws.Cells(1, j))) = ws.Cells(i, j)
Next j
jsonObj.Add CStr(i - 1), rowObj
Next i
Dim jsonStr As String
jsonStr = JsonConverter.ConvertToJson(jsonObj, Whitespace:=2)
Dim filePath As String
filePath = Application.GetSaveAsFilename("output.json", "JSON files (*.json), *.json")
If filePath<>False Then
Open filePath For Output As #1
Print #1, jsonStr
Close #1
End If
MsgBox "JSON exported successfully"
End Sub

上述代碼首先創(chuàng)建一個 Scripting.Dictionary 對象來存儲 Excel 中的數(shù)據(jù)。然后，使用兩個嵌套的 For 循環(huán)遍歷 Excel 中的每一行和每一列，將每個單元格的值存儲為一個鍵值對。最后，使用 JsonConverter 將 Dictionary 對象轉(zhuǎn)換為 JSON 字符串，并將其保存到用戶指定的文件路徑中。

使用該 VBA 宏導出 Excel 中的數(shù)據(jù)到 JSON 很容易。只需要打開 VBA 編輯器，將上述代碼復制粘貼到一個新的模塊中，保存并運行宏，即可在您的計算機上生成 JSON 文件。