逐行循环Excel数据的VB脚本

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 1 To objWorksheet.UsedRange.Rows.Count
    ' 读取当前行的数据
    cellValue = objWorksheet.Cells(i, 1).Value
    
    ' 对数据进行处理或操作
    ' ...
Next

objWorkbook.Close
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing