Excel是一款非常實用的工具，可以用來處理大量的數據。而JSON是一種輕量級的數據格式，可以用來傳遞數據。在某些場景下，我們需要將Excel表格中的數據導出為JSON數據，這時候就需要使用Excel VBA來實現。

導出Excel數據為JSON，首先需要把Excel表格中的數據讀取到VBA中，這可以通過Excel VBA中的Range對象來實現，例如：

Dim jsonObj As Object
Dim jsonArray As Object
Set jsonObj = CreateObject("scripting.dictionary")
Set jsonArray = CreateObject("scripting.dictionary")
Dim row As Integer
Dim col As Integer
For row = 1 To 5
For col = 1 To 3
jsonObj.Add Worksheets("Sheet1").Cells(row, col).Value, Worksheets("Sheet1").Cells(row, col + 3).Value
Next col
jsonArray.Add row, jsonObj.Items
Set jsonObj = CreateObject("scripting.dictionary")
Next row

上述代碼將Excel表格中的前5行數據讀取到了VBA中，并將每一行的數據存儲到了一個JSON對象中。最后將這些JSON對象放到一個JSON數組中，最終得到了一個包含Excel數據的JSON數組。

其中，scripting.dictionary是Excel VBA中用來存儲字典數據的對象，可以通過Add方法向字典中添加鍵值對。

接下來，我們需要將這個JSON數組導出為JSON文件。這可以通過FileSystemObject對象來實現。例如：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim outFile As Object
Set outFile = fso.CreateTextFile("C:\output.json", True)
outFile.Write JsonConverter.ConvertToJson(jsonArray.Items, Whitespace:=3)
outFile.Close
Set outFile = Nothing
Set fso = Nothing

上述代碼將JSON數組通過JsonConverter對象轉換為JSON字符串，并寫入到了C盤的output.json文件中。

在運行上述代碼之前，需要先在Excel VBA中導入第三方庫Newtonsoft.Json。這可以通過在VBE中打開工具菜單，選擇“引用”，然后勾選“Microsoft Scripting Runtime”和“Newtonsoft Json”來實現。

最后，需要注意的是，在寫入JSON文件時要注意文件編碼。建議使用UTF-8編碼，否則中文字符可能會出現亂碼。