Excel是辦公室里最基本的辦公軟件之一，它是一個非常強大的數據處理工具。但如果我們要將Excel中的數據用在我們的網站或應用程序中，我們通常需要將其轉換成JSON格式。本文介紹如何使用VBScript將Excel表格轉換成JSON格式。

' 定義變量
Dim objExcel, objWorkbook, objWorksheet, arrData
' 創建Excel對象
Set objExcel = CreateObject("Excel.Application")
' 打開Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\example.xlsx")
' 指定工作表
Set objWorksheet = objWorkbook.Worksheets(1)
' 定義行列數
intRows = objWorksheet.UsedRange.Rows.Count
intColumns = objWorksheet.UsedRange.Columns.Count
' 讀取Excel中的數據
For i = 2 To intRows
Set objRow = objWorksheet.Rows(i)
ReDim arrColumns(intColumns - 1)
For j = 1 To intColumns
strCell = objWorksheet.Cells(i, j).Value
arrColumns(j - 1) = strCell
Next
ReDim Preserve arrData(i - 2)
arrData(i - 2) = arrColumns
Next
' 關閉Excel文件
objWorkbook.Close
' 釋放Excel對象
Set objExcel = Nothing
' 轉換成JSON格式
strJSON = ""
For i = 0 To UBound(arrData)
strJSON = strJSON & "{"
For j = 0 To intColumns - 1
strJSON = strJSON & """" & arrData(0)(j) & """:""" & arrData(i)(j) & """"
If j< intColumns - 1 Then
strJSON = strJSON & ","
End If
Next
strJSON = strJSON & "}"
If i< UBound(arrData) Then
strJSON = strJSON & ","
End If
Next
strJSON = "[" & strJSON & "]"

在上面的代碼中，我們首先使用VBScript創建了Excel.Application對象，并打開了一個Excel文件。接下來，我們指定了要讀取的工作表，并定義了表格的行數和列數。然后，我們使用一個循環讀取Excel表格中的數據，并將其保存在一個二維數組中。最后，我們將這個數組轉換成JSON格式。

這個VBScript腳本可以將Excel表格轉換成標準的JSON格式。如果您想進一步處理JSON數據，您可以在腳本中添加更多的代碼來解析JSON格式的數據。