hey please tell me how to retriev data from excel sheet
which puts the login name and password in the application?
plz send me the code..please help me
- 6 Answers
- 7961 Views
- HP, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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
| Is This Answer Correct ? | 3 Yes | 0 No |
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
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sojan davis
IF using QTP tool, you can use Import Function
Datatable.ImportSheet "C:\.\.\Data.xls","Sheet1","Global"
| Is This Answer Correct ? | 0 Yes | 0 No |
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
| Is This Answer Correct ? | 0 Yes | 0 No |
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
| Is This Answer Correct ? | 0 Yes | 0 No |
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)
| Is This Answer Correct ? | 0 Yes | 2 No |
Write a program to resize an array of 5 elements to 4 elements and display all the elements.
How will you release the memory acquired by an array variable in vbscript?
Program to use input box and send even numbers into sheet1 and odd numbers into sheet2 and prime numbers into sheet3 using vbscript(QTP)?
Explain the asc function?
What is a class in CSS?
Hello Friends , I am the new joinner of this website. I am working with Sapient ,Gurgoan I would like to ask few qurries regarding the QTP Tool of (Testing) Currently working on QTP Tool . I would like to no learn VB Script can u name some Books which i get in market. And a small issue in QTP I had 2 users right i have to login and send the document from this user to second user right. when i am send this doc some contendId number generates right. now i am loging into second user and i have to search for that contentId right i found it now i dont want to accept the document so i had an opption of check out ok i have to click on check out my QTP Code is like this Browser(" ").Page(" ").WebTable(" ").ChildItem (3,5,"Image",0).click Browser(" ").Page(" ").Link("ChecK Out").Click i new this code is perfectly right but when i am run the script i have to click on that particular contentId and click on check out but now the Problem is started the error is the document has been already checked out remeber every time my content id changes means it is the new contentId which is not been used atleast once Please help me out in this issue i am in big trouble
how to add action through AOM in QTP
write a vb script to display first 5 odd numbers from 1 to 100
1) How can we use VB script in testing the application? 2) What all are the things(Software application to be installed in PC) we need to learn VBscript?
What are the environments supported by vbscript language?
How do you create a recordset object in VBScript?
How to open a file. What is the perpose of true and false mode there?
ASP 
