Excel 是一款廣泛使用的電子表格軟件，而 JSON 是一種輕量級的數據交換格式。

將 Excel 導出為 JSON 格式可以方便地將 Excel 中的數據轉換成可供程序讀取的數據格式，以下是一個簡單的示例代碼：

Sub ExportToJson()
Dim jsonData As String
Dim objExcel As New Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objRange As Excel.Range
Dim row As Long, col As Long
' 打開 Excel 文件
Set objWorkbook = objExcel.Workbooks.Open("C:\example.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)
' 定義 JSON 數組
jsonData = "["
' 遍歷 Excel 中的行和列
For row = 1 To objWorksheet.UsedRange.Rows.Count
' 如果是第一行，則將列名放入 JSON 數組中
If row = 1 Then
jsonData = jsonData & "{"
For col = 1 To objWorksheet.UsedRange.Columns.Count
If col >1 Then jsonData = jsonData & ","
jsonData = jsonData & """" & objWorksheet.Cells(row, col).Value & """"
Next col
jsonData = jsonData & "}"
Else
jsonData = jsonData & ","
' 將每一行的數據轉換成 JSON 對象
jsonData = jsonData & "{"
For col = 1 To objWorksheet.UsedRange.Columns.Count
If col >1 Then jsonData = jsonData & ","
jsonData = jsonData & """" & objWorksheet.Cells(1, col).Value & """"
jsonData = jsonData & ":"
jsonData = jsonData & """" & objWorksheet.Cells(row, col).Value & """"
Next col
jsonData = jsonData & "}"
End If
Next row
jsonData = jsonData & "]"
' 將 JSON 數據寫入文件
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object
Set objFile = objFSO.CreateTextFile("C:\example.json")
objFile.Write jsonData
objFile.Close
Set objExcel = Nothing
Set objWorkbook = Nothing
Set objWorksheet = Nothing
End Sub

以上示例代碼僅供參考，具體實現會根據實際需求進行調整和優化。Excel 導出 JSON 的方法有很多種，更多資料可以參考 Excel VBA 或其他編程語言相關的文檔和教程。