Hi Satnam, Can you be more specific, I didn't get your last message, what have you removed from the code to make it work..?
Regards, Suman CH On Wed, Sep 11, 2013 at 11:41 AM, Satnam Singh <[email protected]> wrote: > Thanks for the reply. I have tried putting the string value and still it > will not work. This is really wearied ... > I have updated the line of code as > browser("IE").Page("Page").WebEdit("loan").Set "7777" > OR > browser("IE").Page("Page").WebEdit("loan").Set 7777 > > both the cases will not work. But if remove the entire code for :- > > Declaration i.e. Dim statements and the excel reading data. The code works > > Pls help > > > > On Wednesday, September 11, 2013 9:58:46 AM UTC+5:30, suman ch wrote: > >> Hi Satnam, >> >> Is the editbox accepting String values as input..? Try to give it without >> converting into cstr..? >> >> Regards, >> Suman Ch >> >> >> On Tue, Sep 10, 2013 at 11:03 PM, Satnam Singh <[email protected]> wrote: >> >>> 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,**v**term,vdate,vptax,vPMI,voput,* >>>> *lo**an >>>> i=2 >>>> >>>> url="http://www.**mortgagecalcul**atorplus.com/<http://www.mortgagecalculatorplus.com/> >>>> " >>>> browser="iexplore.exe" >>>> xlpath="C:\Users\satsingh\**Desk**top\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.**Shee**ts (sheet) >>>> row=mysheet.usedrange.rows.**cou**nt >>>> 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").**We**bEdit("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 >>> MercuryQTP+...@**googlegroups.com >>> >>> For more options, visit this group at >>> http://groups.google.com/**group/MercuryQTP?hl=en<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 mercuryqtp+...@**googlegroups.com. >>> >>> For more options, visit >>> https://groups.google.com/**groups/opt_out<https://groups.google.com/groups/opt_out> >>> . >>> >> >> -- > -- > 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. > -- -- 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.
