Answer / siri

set ex= CreateObject("Excel.Application")
set wrkbk= ex.workbooks.open(excelbookpath)
set objDriverSheet=wrkbk.worhsheets("Sheetname")

dim lgin,pwd,row
for i=0 to 5
row=i
lgin=objDriverSheet.Cells(row,"A")
pwd=objDriverSheet.Cells(row,"B")
msgbox lgin
msgbox pwd

next

Answer / bfakruddin

option explicit
dim xl,rc,UserID,pwd

set xl=createobject("excel.application")
xl.visible=true
xl.workbooks.open "path of your excel sheet"
xl.sheets("Sheetid").select
rc=xl.sheets("Sheetid").usedrange.rows.count
for i=0 to rc
UserID=xl.cells(i,1) 'here 1 is column no.userid contai
pwd=xl.cells(i,2) 'here 2 is column no. password contain
object.set UserID
object.set pwd
Next

Answer / sojan davis

IF using QTP tool, you can use Import Function

Datatable.ImportSheet "C:\.\.\Data.xls","Sheet1","Global"

Answer / manjunathareddy

Set oExcel=CreateObject("Excel.Application")
Set oBook=oExcel.Workbooks.Open(Excelpath)
Set oSheet=oBook.Worksheets(Excelsheetnumber)
oRow=oSheet.Usedrange.Rows.Count
For i=2 to oRow
Un=oSheet.Cells(i,1).Value
Pwd=oSheet.Cells(i,2).Value
Msgbox Un
Msgbox Pwd
Next

Answer / rajani_kanth

Option explicit
Dim objExcel,objExcelSheet,row,col,i,j

Set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open("D:QTPdata.xlsx")
'objExcel.Application.Visible=true
Set objExcelSheet=objExcel.ActiveWorkbook.Worksheets("Sheet1")


row=objExcelSheet.UsedRange.Rows.count
col=objExcelSheet.UsedRange.Columns.count


For i= 2 to row
For j= 1 to Col
' Print objExcelSheet.cells(i,j).value

InvokeApplication"C:Program Files (x86)HPQuickTest Professionalsamplesflightappflight4a.exe"
wait 1
dialog("Login").WinEdit( "Agent Name:").Set objExcelSheet.cells(i,j).value
wait 1
J=J+1
dialog("Login").WinEdit("Password:").Set objExcelSheet.cells(i,j).value
WAIT 1

DIALOG("Login").WinButton("OK").Click
wait 1
window("Flight Reservation").Close
wait 1

Next

Next


objExcel.Workbooks.Close
objExcel.Quit
Set objExcelSheet=Nothing

Set objExcel=Nothing

Answer / chakkara

you can do like this:
1. import the data into local sheet from excel
datatable.ImportSheet "path of the excel file",1,"local
sheet name"

2. assign the values to the fields

browser("").Page(" ).WebEdit(" ).Set datatable("UserName",
dtlocalsheet)

How to assign a numeric value to a variable?

1 Answers  

Write a Script for ATM in QTP

1 Answers  

what is the function to display current date?

4 Answers  

What is the difference between a dictionary and an array?

1 Answers  

WHAT IS ENVIRONMENT VARIABLES?and where it is used in real time scenario?

2 Answers  

Which operator can be used to check if two numbers are equal or not in vbscript?

1 Answers  

What is the differene between QTP 8.2 and QTP 9.0 and QTP 9.1,Pls give me answer ASAP.

3 Answers   Accenture,

Explain about the functionality of vb script?

1 Answers  

Mention what is variant in vbscript?

1 Answers  

What is purpose of scripting.filesystemobject class in vbscript?

1 Answers  

write a function to read the items from combobox of Flight reservation & save in excel (QTP)??

1 Answers  

Set srchobj=Description.Create() srchobj("type").value="text" srchobj("name").value="q" srchobj("html tag").value="input" browser("micclass:=google").Page("micclass:=google").webedit (srchobj).Set "qtp" what's wrong in my code pls tell me ? the above code working fine and i got my result pass,now i am trying to run the program it shows general run time error why?pls help me i am in learning stage ?

1 Answers