Excel轉JSON是一項非常有用的技能，讓我們可以在各種應用中以更高效的方式使用數據。下面將介紹如何使用VBA的代碼將Excel的數據轉換為JSON格式。

首先，我們需要將Excel數據創建為一個數組，這個數組將包含我們想要轉換的所有數據。在這里，我們使用Range對象來從Excel中讀取數據，并將其存儲在一個數組中。

Dim dataRange As Range
Dim dataArray() As Variant
Dim i As Integer
Set dataRange = Worksheets("Sheet1").Range("A1:C10")
dataArray = dataRange.Value
For i = 1 To UBound(dataArray, 1)
Debug.Print dataArray(i, 1)
Next i

接下來，我們需要使用VBA-JSON庫來將數組轉換為JSON格式。這個庫主要用于在VBA中創建和解析JSON對象。我們可以在Github上下載這個庫。

一旦我們將這個庫添加到我們的項目中，就可以將Excel數組轉換為JSON字符串。

Dim json As New JSONConverter
Dim jsonString As String
jsonString = json.ConvertToJson(dataArray)
Debug.Print jsonString

最后，我們可以將JSON字符串保存到文件或發送到Web服務中。

Dim fileNo As Integer
Dim fileName As String
fileName = "data.json"
fileNo = FreeFile
Open fileName For Output As fileNo
Print #fileNo, jsonString
Close fileNo

現在我們已經學會了將Excel數據轉換為JSON，我們可以使用這個技能將Excel數據傳輸到各種應用程序中，例如Web應用程序、移動應用程序、桌面應用程序等。