Answer | Dim excelObj,counter
counter=1
Set excelObj=createobject("Excel.application") 'Excel Object
Set wbObj=excelObj.workbooks.open("c:\demo.xls") 'work bood
object
Set wbs=excelObj.activeworkbook.worksheets("sheet2") 'work
sheet object
while not isempty(excelObj.cells(counter,1))
x=excelObj.cells(counter,1).value
msgbox(x)
counter=counter+1
wend  |
| Uday Kumar. A |