Excel是一款非常流行的電子表格軟件，它可以方便地將數據進行存儲和分析。不過，有時候我們需要將Excel中的數據轉換為JSON格式的文件，以方便在Web應用程序中進行使用。下面介紹一下如何使用VBA腳本實現Excel轉換為JSON格式的文件。

Sub excelToJson()
Dim outputStr As String
Dim arr As Variant
Dim rowNum As Long, colNum As Long, i As Long, j As Long
' 獲取Excel工作簿中的數據
arr = ActiveSheet.UsedRange.Value
rowNum = UBound(arr, 1)
colNum = UBound(arr, 2)
' 構建JSON字符串
outputStr = "{""data"": ["
For i = 2 To rowNum
outputStr = outputStr & "{"
For j = 1 To colNum
outputStr = outputStr & """" & arr(1, j) & """ : """ & arr(i, j) & """"
If j<>colNum Then outputStr = outputStr & ","
Next j
outputStr = outputStr & "}"
If i<>rowNum Then outputStr = outputStr & ","
Next i
outputStr = outputStr & "]}"
' 輸出JSON字符串到文件
Open "output.json" For Output As #1
Print #1, outputStr
Close #1
End Sub

上面的VBA代碼中，首先通過ActiveSheet.UsedRange.Value獲取Excel工作簿中的數據，并通過雙重循環構建JSON字符串。最后，將JSON字符串輸出到output.json文件中。

使用上述代碼，可以非常方便地將Excel轉換為JSON格式的文件。希望對大家有所幫助！