Set xlapp =createobject("excel.application")
set xlbook = xlapp.workbooks.open ("D:\pavan\nanda.xls")
Set xlsheet = xlbook.worksheets("Sheet1")
xlcount = xlsheet.usedrange.rows.count
xlcln_count = xlsheet.usedrange.columns.count
msgbox xlcln_count
For i=2 to xlcount
For j=1 to xlcln_count
Dialog("Login").WinEdit("Agent Name:").set xlsheet.cells(i,j).value
Dialog("Login").WinEdit("Password:").set xlsheet.cells(i,j).value
xlsheet.cells(i,3).value = "pass"
Next
Next
xlbook.save
xlbook.close
xlapp.quit
Regards,
PavanKumar Nandagiri..................