Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 9875 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 |
Which in-built function is used to format the number in the vbscript language?
What is loose binding? Why is it not a good practice to use it?
What is the difference between for loop and while loop?
How to create a cookie using vbscript?
Write VB script to convert from feet to inches(hint 1feet=12 inches)
Which operator is used for fetching the modulus of the 2 numbers in the vbscript language?
filter the array values without using filter function?
How to write VB Script for selecting a particular row in a WebTable?
How to open a file. What is the perpose of true and false mode there?
How to access array data?
write a vb script to display first 5 odd numbers from 1 to 100
Which operator can be used to check if two numbers are equal or not in vbscript?
ASP 
