Excel 是一個(gè)非常廣泛使用的電子表格軟件，但有時(shí)候需要將數(shù)據(jù)轉(zhuǎn)換為 JSON 格式，用于 Web 開發(fā)或數(shù)據(jù)交換等領(lǐng)域。在 Excel 中，可以使用 VBA 宏來導(dǎo)出數(shù)據(jù)為 JSON 格式。

Sub ExportJSON()
Dim objSelection As Range
Dim strFileName As String, strJSON As String
Dim numRows As Long, numCols As Long
Dim r As Long, c As Long
'獲取選擇的數(shù)據(jù)范圍
Set objSelection = Application.Selection
'獲取數(shù)據(jù)范圍的行數(shù)和列數(shù)
numRows = objSelection.Rows.Count
numCols = objSelection.Columns.Count
'開始生成 JSON 數(shù)據(jù)
strJSON = "{"
strJSON = strJSON & """data"": ["
'循環(huán)遍歷每行數(shù)據(jù)
For r = 1 To numRows
strJSON = strJSON & "{"
'循環(huán)遍歷每列數(shù)據(jù)
For c = 1 To numCols
strJSON = strJSON & """"
strJSON = strJSON & objSelection.Cells(r, c).Value
strJSON = strJSON & """"
If c<>numCols Then
strJSON = strJSON & ","
End If
Next c
strJSON = strJSON & "}"
If r<>numRows Then
strJSON = strJSON & ","
End If
Next r
strJSON = strJSON & "]"
strJSON = strJSON & "}"
'打開保存對(duì)話框，讓用戶選擇保存位置和文件名
strFileName = Application.GetSaveAsFilename("", "JSON file (*.json), *.json")
'將生成的 JSON 數(shù)據(jù)輸出到文件
Open strFileName For Output As #1
Print #1, strJSON
Close #1
End Sub

以上是一個(gè)簡單的導(dǎo)出 Excel 數(shù)據(jù)為 JSON 格式的 VBA 宏。通過將這段代碼復(fù)制到 Excel 中的 VBA 編輯器中并運(yùn)行，即可將當(dāng)前選中的數(shù)據(jù)導(dǎo)出為 JSON 文件。