did try does not work. The same script work for one of the script but just not working on other s
On Tuesday, July 9, 2013 1:32:28 PM UTC-4, rajaselvan wrote: > > Just try, run the script after setting i value as 1 > > Regards > Rajaselvan > On Jul 9, 2013 9:13 PM, <[email protected] <javascript:>> wrote: > >> It only doesn't work when i use datatable when i use print function it >> works fine. Can some one help me please >> >> >> >> >> wait 2 >> 'DataTable.GetRowCount >> i=0 >> >> Set mypage=browser("title:=.*").page("title:=.*") >> >> >> While mypage.image("class:=mm","index:="&i).exist >> mypage.Sync >> wait 3 >> Datatable( "VehicleName", dtGlobalSheet )= >> mypage.image("class:=mm","index:="&i).getroproperty("filename") >> Datatable( "VehicleName", dtGlobalSheet )= >> mypage.image("class:=mm","index:="&i).getroproperty("href") >> Datatable( "MSRP_Price", dtGlobalSheet )= >> mypage.WebElement("class:=tx2","index:="&i).getroproperty("innertext") >> >> mypage.image("class:=mm","index:="&i).click >> mypage.Sync >> wait 4 >> >> i=i+1 >> >> Set desc2=description.Create >> desc2("micclass").value="WebElement" >> desc2("class").value="tx2" >> Set obj2=browser("title:=.*").page("title:=.*").ChildObjects(desc2) >> Datatable( "MSRP", dtGlobalSheet )= >> obj2(0).getroproperty("innertext") >> Datatable.SetCurrentRow(i) >> >> >> wait 6 >> >> Browser("creationtime:=0").Back >> >> >> >> Wend >> >> >> >> On Tuesday, June 25, 2013 9:08:04 PM UTC-4, [email protected] wrote: >>> >>> hi , >>> it is still doing same thing. issue is still present >>> >>> On Tuesday, June 25, 2013 12:28:39 AM UTC-4, Chethu wrote: >>>> >>>> keep this code out of while loop then it should work >>>> >>>> Set objExcel = CreateObject("Excel.**Application") >>>> objExcel.Visible = True >>>> objExcel.DisplayAlerts = False >>>> Datatable.Export("C:\Users\**Wajahat.awan\Desktop\**Automation\Private >>>> DHC\Chevy DHC\Default.xls") >>>> Set objWorkbook = objExcel.Workbooks.Open("C:\** >>>> Users\Wajahat.awan\Desktop\**Automation\Private DHC\Chevy >>>> DHC\Default.xls") >>>> objWorkbook.SaveAs ("C:\Users\Wajahat.awan\**Desktop\Automation\Private >>>> DHC\Chevy DHC\MRSP Verify code" & Day(Date) & Month(Date) & Year(Date) & >>>> ".xls") >>>> objExcel.Quit >>>> >>>> Its looping problem just cross check twice. >>>> >>>> >>>> ~Chets >>>> >>>> >>>> On Tue, Jun 25, 2013 at 6:17 AM, <[email protected]> wrote: >>>> >>>>> Hi there i am trying to capture all the value when i run this script >>>>> But when run it the value it captures and insert into the data table. >>>>> But it captures the values of second vehicle it overwriites the values of >>>>> 1st vehicle. >>>>> When i use print function it works fine. but only with data table it >>>>> does that >>>>> >>>>> Dim bro, url, image >>>>> >>>>> bro = "iexplore" >>>>> url = >>>>> "http://www.chevrolet.com/**tools/help-choose-vehicles.**html<http://www.chevrolet.com/tools/help-choose-vehicles.html> >>>>> " >>>>> >>>>> systemutil.Run bro, url >>>>> browser("title:=.*").Sync >>>>> wait 15 >>>>> >>>>> DataTable.GetRowCount >>>>> i=0 >>>>> >>>>> Set mypage=browser("title:=.*").**page("title:=.*") >>>>> >>>>> >>>>> While mypage.image("class:=mm size_3","index:="&i).exist >>>>> mypage.Sync >>>>> wait 3 >>>>> Datatable( "VehicleName", dtGlobalSheet )= mypage.image("class:=mm >>>>> size_3","index:="&i).**getroproperty("filename") >>>>> Datatable( "VehicleName", dtGlobalSheet )= mypage.image("class:=mm >>>>> size_3","index:="&i).**getroproperty("href") >>>>> Datatable( "HelpMeChooseMSRP", dtGlobalSheet )= >>>>> mypage.WebElement("class:=tx_**price","index:="&i).** >>>>> getroproperty("innertext") >>>>> >>>>> mypage.image("class:=mm size_3","index:="&i).click >>>>> mypage.Sync >>>>> wait 4 >>>>> >>>>> i=i+1 >>>>> >>>>> Set desc2=description.Create >>>>> desc2("micclass").value="**WebElement" >>>>> desc2("class").value="parbase ts_attr_c1 section" >>>>> Set obj2=browser("title:=.*").**page("title:=.*").** >>>>> ChildObjects(desc2) >>>>> Datatable( "MSRPonMOPAGE", dtGlobalSheet )=obj2(0).getroproperty("** >>>>> innertext") >>>>> Datatable.SetCurrentRow(i) >>>>> >>>>> >>>>> Set objExcel = CreateObject("Excel.**Application") >>>>> objExcel.Visible = True >>>>> objExcel.DisplayAlerts = False >>>>> Datatable.Export("C:\Users\**Wajahat.awan\Desktop\**Automation\Private >>>>> DHC\Chevy DHC\Default.xls") >>>>> Set objWorkbook = objExcel.Workbooks.Open("C:\** >>>>> Users\Wajahat.awan\Desktop\**Automation\Private DHC\Chevy >>>>> DHC\Default.xls") >>>>> objWorkbook.SaveAs ("C:\Users\Wajahat.awan\**Desktop\Automation\Private >>>>> DHC\Chevy DHC\MRSP Verify code" & Day(Date) & Month(Date) & Year(Date) & >>>>> ".xls") >>>>> objExcel.Quit >>>>> >>>>> wait 6 >>>>> browser("title:=.*").Back >>>>> Wend >>>>> >>>>> -- >>>>> -- >>>>> 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]<javascript:> >> To unsubscribe from this group, send email to >> [email protected] <javascript:> >> 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] <javascript:>. >> 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.
