如何从VBScript读取Excel文件？

Dim objExcel, objWorkbook, objWorksheet
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\excel_file.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)

' 读取单元格数据
Dim cellValue
cellValue = objWorksheet.Cells(1, 1).Value
WScript.Echo "A1单元格的值为：" & cellValue

' 读取整个工作表数据
Dim row, column, value
For row = 1 To objWorksheet.UsedRange.Rows.Count
    For column = 1 To objWorksheet.UsedRange.Columns.Count
        value = objWorksheet.Cells(row, column).Value
        WScript.Echo "第" & row & "行，第" & column & "列的值为：" & value
    Next
Next

' 关闭Excel对象
objWorkbook.Close
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing