Thursday, May 27, 2010
QTP VBScript tutorials
http://testersknowledge.wordpress.com/2010/01/25/advanced-qtp-tutorial-vbscript-orientation/
Comments:
<< Home
Hi Rajendra,
hope you are doing good. Which company are you now. Im Praveen from Trivandrum. Please see the pased details
(19)Taking Value From Excel Sheet with Example
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebButton("Login").Click
Set ex=createobject("Excel.Application")
Set a=ex.workbooks.open("D:\1.xls")
Set b=a.worksheets("Sheet1")
Dim login
For i=1 to 5
login="UserName: "&b.Cells(i,"A").value
msgbox login
Next
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebEdit("liUSR").Set "admin"
dim pwd
For i=1 to 5
pwd="Password: "&b.Cells(i,"B").value
msgbox pwd
Next
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebButton("Login").Click
(20)Counts the value from Excelsheet(initially create a excelsheet with Value)
DataTable.Import("c:\1.xls")
DataTable.SetCurrentRow("1")
For login_id=1 to 3
a=DataTable.Value("login_id")
msgbox a
DataTable.SetNextRow
Next
Actually its our projects its using only in Trivandrum.
http://praveenpvtesting.blogspot.com/2009/02/qtp-scripts.html
Let me know the reply please.
hope you are doing good. Which company are you now. Im Praveen from Trivandrum. Please see the pased details
(19)Taking Value From Excel Sheet with Example
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebButton("Login").Click
Set ex=createobject("Excel.Application")
Set a=ex.workbooks.open("D:\1.xls")
Set b=a.worksheets("Sheet1")
Dim login
For i=1 to 5
login="UserName: "&b.Cells(i,"A").value
msgbox login
Next
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebEdit("liUSR").Set "admin"
dim pwd
For i=1 to 5
pwd="Password: "&b.Cells(i,"B").value
msgbox pwd
Next
Browser("AutoPallet/AutoLoader™").Page("AutoPallet/AutoLoader™").WebButton("Login").Click
(20)Counts the value from Excelsheet(initially create a excelsheet with Value)
DataTable.Import("c:\1.xls")
DataTable.SetCurrentRow("1")
For login_id=1 to 3
a=DataTable.Value("login_id")
msgbox a
DataTable.SetNextRow
Next
Actually its our projects its using only in Trivandrum.
http://praveenpvtesting.blogspot.com/2009/02/qtp-scripts.html
Let me know the reply please.
Subscribe to Post Comments [Atom]
<< Home
Subscribe to Posts [Atom]
Post a Comment