04-29-2010, 11:58 AM
(This post was last modified: 04-29-2010, 11:58 AM by bfakruddin.)
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