Data importing from excel using script

[vaigundamoorthy]

Hi ,

I needto enter the username, password value from external excel sheet by using script.
Howcan i write the script for this condition

A B
Username Password
tutorial tutorial
abc cde
12345 12345

I did something

Code:

set objExe= createobject("Excel.Application")
Set a=objExe.workbooks.open("     ")
Set b=a.worksheets("sheet1")

IT would be great if anyone suggests how do i write?

[Prafulla]

Code:

Set objXL = CreateObject("Excel.Application")
    objXL.Application.visible = true
    Set objWB = objXL.WorkBooks.Open(filePath)
    Set objWS = objXL.ActiveWorkBook.WorkSheets(workSheetName)
    'how many rows are used in the current worksheet
    rCount = objWS.UsedRange.Rows.Count
    
   'Considering u know the column number
    For row = 1 To rCount
          MsgBox objWS.Cells(row,column).Value
    Next
    objXL.Quit
    Set objXL = Nothing
    Set objWB = Nothing
    Set objWS = Nothing

[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

[lit_73]

This was excellent piece of code.Thanks very much.Hope my problem is solved.