Wednesday, July 30, 2008

How to parametrize from external file

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..................

Google Search

Google