QTP and Excel

[Sonia]

Hi , I did as mentioned by Brian but now the code still executes twice so I actually have four runs when the datatable contains only two rows of data . Attached is the code ,

I just want the script to run once for each row of the datatable but for some reason it runs the script twice for each row ending up with four results .
----------------------------

Code:

Dim Row
DataTable.Import("E:\ITS\login.xls")
Row=1
'This loop iterates for each instance of the login name
Do while (Row < (Datatable.GetRowCount+1))
DataTable.SetCurrentRow(Row)

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Documents and Settings\SSharma","open"
Browser("Home").Page("Home").Sync
Browser("Home").Navigate "https://www.ITS Inc.org/#"
Browser("Home").Dialog("Security Information").WinButton("Yes").Click
Browser("Home").Page("ITS Inc,.").WebEdit("txtusername").Set DataTable("username", dtGlobalSheet)
Browser("Home").Page("ITS Inc.").WebEdit("txtpassword").SetSecure "8e9d06e4654024dbf48"
Browser("Home").Page("ITS Inc").Image("header$loginButton").FireEvent "onmouseover"
Browser("Home").Page("ITS Inc").Image("header$loginButton").Click 11,11
Browser("Home").Page("ITS Inc").Link("LOGOUT").Click
Browser("Home").Page("ITS Inc").Sync
Browser("Home").Close

Row=Row+1
Loop

---------------------------------

Thanks ,

Sonia

[veerasekaran]

hi,
i am new in QTP .please tell how to study QTP easily and script
this is my mail id m.veerasekaran@gmail.com

[Rajashekar Gouda]

Hye Sonia,
The solution for ur question is quite simple.please use the below code with some modifications.

Code:

Datatable.ImportSheet "path.xls","Action name","sheet name"
'action name and sheet name must be same
num=datatable.GetSheet ("action name").Getrowcount
msgbox (num)
For i=1 to num
DataTable.GetSheet("action name").SetCurrentrow i
Browser("sdfs:=sdf").page("sdf:=dse").WebEdit("sdfee:=sd").Set datatable("user_ID",dtLocalSheet)
'use_id is a column in exl sheet
Browser("sdfs:=sdf").page("sdf:=dse").WebEdit("sdfee:=sd").click
Browser("sdfs:=sdf").page("sdf:=dse").WebEdit("sdfee:=sd").Set datatable("password",dtLocalSheet)

Browser("sdfs:=sdf").page("sdf:=dse").WebEdit("sdfee:=sd").click

Next

Pls let me know ur results

Regards
Raj

[Sonia]

Yes ,

Thank you for the information. Now the script works fine . I did not change the run on all rows setting earlier .

Thank you for your help,
Sonia

[svbrahma]

Hi I tried the same thing for mercury tours windows application. here it takes all thedata from excel sheet. but my problem is for i=1 the script is runnig for 3 times (coz there are 3 rows in excel sheet)for i=2 its running 3 times.how to aviod this.thanks in advance.[/u]

Code:

Datatable.Import ( "C:\Documents and Settings\sailaja\My Documents\usename.xls")
num=datatable.GetRowCount
For i=1 to num
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
datatable.SetCurrentRow i

Dialog("Login").WinEdit("Agent Name:").Set DataTable("Agentname", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").Set DataTable("password", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "020209"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "Sailaja"
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"

Window("Flight Reservation").Close

next
'o=createobject("scripting.filesystemobject")
'Set outputfile=fso.createtextfile("C:\Documents and Settings\sailaja\My Documents\output.xls",true)

  '  outputfile.writeline("step passed")

[sreekanth chilam]

HI sonia ,

Just check with the following method :

1. In file-->settings-->Run-->choose "Run only one iteration"

2.in the expert view, give the following code:

Code:

Dim Row
DataTable.Import("E:\OFT\login.xls")

rcount=datatable.getrowcount
For i=1 to rcount
DataTable.SetCurrentRow(i)
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Documents and Settings\SSharma","open"
Browser("Home").Page("Home").Sync
Browser("Home").Navigate "https://www.ITS Inc.org/#"
Browser("Home").Dialog("Security Information").WinButton("Yes").Click
Browser("Home").Page("ITS Inc,.").WebEdit("txtusername").Set DataTable("username", dtGlobalSheet)
Browser("Home").Page("ITS Inc.").WebEdit("txtpassword").SetSecure "8e9d06e4654024dbf48"
Browser("Home").Page("ITS Inc").Image("header$loginButton").FireEvent "onmouseover"
Browser("Home").Page("ITS Inc").Image("header$loginButton").Click 11,11
Browser("Home").Page("ITS Inc").Link("LOGOUT").Click
Browser("Home").Page("ITS Inc").Sync
Browser("Home").Close
Next

Sonia....I hope ur problem will be solved...