Excel是一種廣泛使用的電子表格軟件，可以用于數據處理、分析和可視化。然而，有時候我們需要將Excel文件轉換為JSON格式，以便將數據用于Web應用程序或其他需要JSON格式的應用程序中。在本文中，我們將介紹如何在Excel中使用VBA代碼來將數據轉換為JSON格式。

Sub ExcelToJson()
'定義變量'
Dim JsonObject As Object
Dim JsonString As String
Dim i As Integer, j As Integer
'創建JSON對象'
Set JsonObject = CreateObject("Scripting.Dictionary")
'獲取當前工作表'
Dim ws As Worksheet
Set ws = ActiveSheet
'獲取數據范圍'
Dim RowsCount As Integer, ColsCount As Integer
RowsCount = ws.UsedRange.Rows.Count
ColsCount = ws.UsedRange.Columns.Count
'循環獲取數據'
For i = 2 To RowsCount
Dim Record As Object
Set Record = CreateObject("Scripting.Dictionary")
For j = 1 To ColsCount
Dim ColName As String, ColValue As String
ColName = ws.Cells(1, j).Value
ColValue = ws.Cells(i, j).Value
Record.Add ColName, ColValue
Next j
JsonObject.Add i - 1, Record
Next i
'轉換為JSON字符串'
JsonString = JsonConverter.ConvertToJson(JsonObject)
'輸出JSON字符串'
Debug.Print JsonString
End Sub

以上代碼使用了JsonConverter庫，這是一個可用于VBA中的JSON編解碼器。如果尚未安裝該庫，請先下載并安裝它。

在運行該代碼之后，將生成一個JSON格式的字符串，其中包含Excel文件中的所有數據。您可以將該字符串復制到您的代碼中，并在需要使用JSON數據的地方進行解析和使用。