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
- 10064 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 |
How to write a general script which should does the following a). If a page object is given, it should identify the page object of the corresponding page(site). b). It should identify all the links of that particular page. in QTP tool?
2 Answers IBM, Infosys, Wipro,
How to pass argument by reference to a function in vbscript?
How will you trim the spaces on the left of a string using vbscript?
about vb scripting programs this type of all question& answers
How to write a VBscript for web page performance test i need a code send if any knows the code If any knows VBScript book plz send to me the link to my mail plz
Write a Script for ATM in QTP
can u test the application without add-in?
What is the purpose of drive object of scripting.filesystemobject class in vbscript?
What is the scope of a constant declared using public?
we executed QTP scripts in one browser(i.e IN)same scripts is working on another browsers or not (i.e mean netscap,m azol..like )
How to replace junk code recorded by QTP with a mall function.
Which function is used in the vbscript language to convert the specified expression into a date type value?
ASP 
