Excel是辦公軟件中常用的數(shù)據(jù)處理工具，而JSON是現(xiàn)代Web應(yīng)用中常用的數(shù)據(jù)格式。若需要將Excel中的數(shù)據(jù)轉(zhuǎn)換為JSON格式，可以通過VBA語言編寫宏來實(shí)現(xiàn)。

Sub excelToJson()
Dim jsonFile As String
Dim dataNum As Integer
Dim jsonData As New Dictionary
Dim dataArr() As String
'開啟工作表
Worksheets("Sheet1").Activate
'獲取數(shù)據(jù)行數(shù)
dataNum = Cells(Rows.Count, 1).End(xlUp).Row
'循環(huán)獲取行數(shù)據(jù)
For i = 2 To dataNum
'將數(shù)據(jù)放入數(shù)組
dataArr = Array(Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value)
'將數(shù)據(jù)數(shù)組放入字典中
jsonData.Add "data" & i - 1, dataArr
Next i
'將字典轉(zhuǎn)換為JSON格式
jsonFile = JsonConverter.ConvertToJson(jsonData, Whitespace:=2)
'輸出JSON結(jié)果
MsgBox jsonFile
End Sub

上述代碼中，通過字典和數(shù)組將Excel中每一行的數(shù)據(jù)存儲下來，并通過JsonConverter庫將數(shù)據(jù)轉(zhuǎn)換為JSON格式的字符串，并輸出到消息框中。

若需要將JSON字符串保存為文件，則可以使用FileSystemObject對象的WriteAllText方法將字符串寫入文本文件中。

'將JSON字符串保存為文件
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'打開文件
Dim ts As Object
Set ts = fso.CreateTextFile("C:\test.json", True)
'寫入文件
ts.WriteLine jsonFile
'關(guān)閉文件
ts.Close
MsgBox "保存成功"

上述代碼中，通過FileSystemObject對象創(chuàng)建文本文件，并打開文件流。然后將JSON字符串寫入文件，并關(guān)閉文件流。此時(shí)，保存成功的提示框?qū)棾觥?/p>