VBScript:EXcelシーﾄのデータの読み出し

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open ("C:\Book1.xlsx")

Set objWorksheet = objWorkbook.sheets(1)

intRow = 1
Do Until objWorksheet.Cells(intRow,1).Value = ""
data = objExcel.Cells(intRow,1)
intRow = intRow + 1
WScript.Echo data
Loop

objExcel.Quit