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)

What are the properties of regexp object?

0 Answers  

Difference between Function and Sub routine?

0 Answers   Polaris,

what is the function to display current date?

4 Answers  

How to search word in a string without using instring function?

1 Answers   CSS Corp,

Mention characteristics of sub procedures?

0 Answers  

Explain the .wsf files?

0 Answers  

What are class properties?

0 Answers  

Can anybody code this problem for me in VB script - Create an array of 4 elements, increase its size to 7 elements and then find out which of the elements are prime (use functions)

2 Answers  

What are the uses of vb script?

0 Answers  

Hi anyone Can Send Solution to the Question wt m posting now Prepare Script for the Bellow Scenario? Login to Gmail Page Open Inbox check Mails save them in a Folder

0 Answers   IBM,

What is the difference between Javascript & Vbscript?

2 Answers  

What is the event handling in vbscript?

0 Answers