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
- 10101 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 |
Suppose by navigation I went from 1 st page to 5 page ,so Write a generic script for coming from any page to the 1st page and by executing where the page may be it will come to 1st page
What are the different types of operators and their order of precedence?
How strcomp function works?
write a vb script to generate hello 5 times using do until loop
Create a file system object to do the following i. Create a folder ii. Create a text file in the folder iii. Update text file with some tex
What is the event handling in vbscript?
How can we return a value from User Defined Function ? For Eg. we have 2 functions. In Fun1 i am getting 2 values (a,b) and i am addding those 2 and storing in to another var (c). Now i want to pass that var(c) to another function (fun2). What will be the script?
can anyone tell me the procedure of interview held in applabs
How will you reverse a string in vbscript?
write a program to display the system specifications of client system with the help of vbScript.
What is event handling in vbscript?
write a program to display configuration of a local system with the help of vb script.
ASP 
