How to pass parameters from excel sheet into an application form through qtp(code)

[chundikirankumar]

HI 2 all

How to pass parameters from excel sheet into an application form through qtp. i need code to perform this task.so plz help me......

bye

[sutnarcha]

I think you are talking about data driven testing

[chundikirankumar]

hi thanx for replying yes data driven testing..iam new to qtp.if uknow plz help me out if possible.


thanx

bye

[sirigiri.vcr]

HI 2 all

How to pass parameters from excel sheet into an application form through qtp. i need code to perform this task.so plz help me......




bye

Hi kiran,
better to select datadriver option.
i think u understand.
by
chalapathi.

[dsharma]

You need to create objects in Excel to do that as follows -

set sh = CreateObject("Scripting.FileSystemObject")
set exl = CreateObject("Excel.Application")
exl.visible = true

excel_path = Datatable.Value("p_path_mainxls")

set wb = exl.WorkBooks.Open(excel_path)

'Open the intended worksheet
set ws_content = wb.Worksheets("Sheet1")

ws_content.Activate

list_value = exl.ActiveSheet.Cells(5,4).Value

'Then you can use this list_value to pass onto the application like,
Browser().Page().WebEdit().Set list_value

[sutnarcha]

dsharma's examples are correct

If the data is to be taken from QTP's Data Table, then the following statement should help you...

Window("XYZ ABC").Dialog("OPEN").WinEdit("Edit").Set DataTable("A", dtGlobalSheet)

[myth.ks]

hi below is the code, if ur external datatable contian more than one iteration....

DataTable.Importsheet "Path of the excel.Xls","Sourcesheet",Designationsheet",

iRowCnt = DataTable.GetSheet.GetRowCount

For iNumber=1 to iRowCnt

DataTable.SetCurrentRow(iNumber)
v_iretriveValFrmDataTable = DataTable("ColumnName","")

Next

[kunals]

Also there is one easy way is follow what the process mentioned in the QTP help book. thats the easiest way to start working on the Data Driven Testing.

[smartarun]

Whatever dsharma has written the code is correct and it works properly.

Arun*

[gopathipraveen]

hi

plz try this once

DataTable.AddSheet"login"
DataTable.ImportSheet"C:\Documents and Settings\Administrator\Desktop\Book1.xls","input","login"
rc=DataTable.GetSheet("login”).Getrowcount
For i=1 to rc
DataTable.SetCurrentRow(i)
systemutil.Run"C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserId",3)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("Password",3)
Dialog("Login").WinButton("OK").Click
If (Window("Flight Reservation").Exist) then
reporter.ReportEvent 0,"Given Test is ","pass"
DataTable.Value("Result",3)="pass"
else
reporter.ReportEvent 1,"Given Test is ","fail"
DataTable.Value("Result",3)="fail"
end if
Window("Flight Reservation").Close
DataTable.SetNextRow
next
DataTable.ExportSheet"c:\Documents and Settings\Administrator\Desktop\Book1.xls",3



Regards
gopathi