Excel VBA 是一種在微軟 Excel 中編寫宏程序的語言，它允許程序員通過 VBA 編寫代碼，與 Excel 交互并控制 Excel 的數據和功能。其中，導出 JSON 是一種常見需求，它可以將 Excel 表格的數據導出成一種輕量級數據交換格式，方便數據傳輸和交換。

' VBA 代碼示例
Option Explicit
Sub ExportJSON()
' 聲明變量
Dim rngData As Range
Dim arrData() As Variant
Dim arrJSON() As String
Dim strJSON As String
Dim strJSONFile As String
Dim intLastRow As Integer
Dim intLastCol As Integer
Dim intRow As Integer
Dim intCol As Integer
' 獲取數據
Set rngData = Range("A1").CurrentRegion
intLastRow = rngData.Rows.Count
intLastCol = rngData.Columns.Count
arrData = rngData.Value
' 生成 JSON
For intRow = 2 To intLastRow
strJSON = "{"
For intCol = 1 To intLastCol
strJSON = strJSON & Chr(34) & arrData(1, intCol) & Chr(34) & ":"
strJSON = strJSON & Chr(34) & arrData(intRow, intCol) & Chr(34)
If intCol< intLastCol Then
strJSON = strJSON & ","
End If
Next intCol
strJSON = strJSON & "}"
arrJSON(intRow - 2) = strJSON
Next intRow
' 輸出到文件
strJSONFile = "data.json"
Open strJSONFile For Output As #1
For intRow = 0 To intLastRow - 2
If Not arrJSON(intRow) = "" Then
Print #1, arrJSON(intRow)
End If
Next intRow
Close #1
End Sub

以上是導出 JSON 的示例代碼。根據需要，程序員可以修改代碼中的參數，如文件名和數據范圍等。導出 JSON 后，可以使用其他程序讀取和處理 JSON 數據，或者使用在線 JSON 解析工具驗證數據的格式是否正確。