importing excel file and run on all iterations

[vineet.k]

hi,
a) i want to know how to import data from external excel sheet and run the flight application with single login name in global sheet and create order for 3 different users i.e for 3 different user names from excel sheet.
b)Then same for 3 different login users.

In 1st case i am not able to run for all 3 rows for single login but it is running for 1st row 3times ...So i want to know how to run for all iterations?

[Anand]

i think u r not incrementing the counter of row number. Try this.. but dont increment column value

suppose col1 contains user name and col2 contains password
-------------------------------------------

Code:

dim sExcelObj
dim sWorkBook
dim sWorkSheets
dim sValue

set sExcelObj = CreateObject("Excel.Application")
sExcelObj.Visible = true
set sWorkBook = sExcelObj.Workbooks.Open ("path of file")
set sWorkSheets = sWorkBook.ActiveWorkbook.worksheets ("sheetname")

username = sWorkSheets.cells(row,col1).value
password= sWorkSheets.cells(row,col2).value
row=row+1

You can also import your excel into QTP and then iterate. also you need to do some setting in options. Check the file attached.
----------------

Code:

datatable.importsheet "c:\excelfile.xls", "sheet1"

To get a value form excel file..

Code:

Empno = datatable.value("empno", "sheet1")

To run the script for all the iterations..

Code:

For i = 1 to datatable.getsheet("sheet1").getrowcount
msgbox datatable.value("empno", "sheet1")
Next