Attaching the excel sheet as well .

On Tuesday, September 10, 2013 9:48:03 PM UTC+5:30, Satnam Singh wrote:
>
> Hello All,
>
> I am pity confused with the following test. Can someone pls look into the 
> below.
>
> ============================================================
> Option Explicit 
>     Dim url,browser,xlpath,sheet,opage
>     Dim i,xl,mysheet,row,vloan,vrate,vterm,vdate,vptax,vPMI,voput,loan
>     i=2
>
> url="http://www.mortgagecalculatorplus.com/";
> browser="iexplore.exe"
> xlpath="C:\Users\satsingh\Desktop\Demo\Testdata"
> sheet= "TestData"
>
>
>  SystemUtil.Run browser,url
>
> Set xl=CreateObject ("Excel.Application")
>  xl.Workbooks.Open xlpath
>  xl.Application.Visible= true
> Set mysheet=xl.ActiveWorkbook.Sheets (sheet)
> row=mysheet.usedrange.rows.count
> print row
>
>
> For i = 2 to row
>     loan= mysheet.cells(i,1)
>     vloan=Cstr(loan)
>     print "vloan" & vloan &"for value of i = " & i
>     
>     vrate= mysheet.cells(i,2)
>     vterm= mysheet.cells(i,3)
>     vdate= mysheet.cells(i,4)
>     vptax= mysheet.cells(i,5)
>     vPMI= mysheet.cells(i,6)
>  browser("IE").Page("Page").WebEdit("loan").Set vloan
>
> Next
>
>
> ===============================================================
>
> When I run the above script I am getting the error message as attached. 
>
> Please help.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

-- 
-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

--- 
You received this message because you are subscribed to the Google Groups "QTP 
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.

Attachment: Testdata.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Reply via email to