Data importing from excel using script

[bfakruddin]

Code:

dim xl
set xl=createobject("excel.application")

xl.workbooks.open "D:\Documents and Settings\320003992\Desktop\New Microsoft Excel Worksheet.xls"
xl.visible=true
xl.sheets("Sheet1").select

rc=xl.activeworkbook.sheets("Sheet1").usedrange.rows.count
msgbox rc

for i=1 to rc

a=xl.cells(i,"A").value
msgbox a
b=xl.cells(i,"B").value
msgbox b

next

xl.activeworkbook.save
xl.quit
set xl=nothing