Hi,
Code:
Dim xl
Set xl=createobject("excel.application")
xl.workbooks.open("Path of xls file")
xl.visible=true
RC=xl.sheets("SheetID").usedrange.rows.count
set xl_A=xl.sheets("SheetID")
for i=1 to RC
ur_lp=xl_A.cells(i,1).value
print ur_lp
Next
set xl=nothing