Dim bro, url, image
bro = "iexplore"
url = "http://www.chevrolet.com/tools/help-choose-vehicles.html";
systemutil.Run bro, url
browser("title:=.*").Sync
wait 2
DataTable.GetRowCount
i=1
Set mypage=browser("title:=.*").page("title:=.*")
While mypage.image("class:=mm size_3","index:="&i).exist
mypage.Sync
wait 3
Datatable( "L1", dtGlobalSheet )= mypage.image("class:=mm
size_3","index:="&i).getroproperty("filename")
Datatable( "L1", dtGlobalSheet )= mypage.image("class:=mm
size_3","index:="&i).getroproperty("href")
Set desc=description.Create
desc("micclass").value="WebElement"
desc("class").value="tx_price"
Set obj=browser("title:=.*").page("title:=.*").ChildObjects(desc)
Datatable( "l2", dtGlobalSheet )= obj(0).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="pf6a"
Set obj2=browser("title:=.*").page("title:=.*").ChildObjects(desc2)
Datatable( "l3", dtGlobalSheet )=obj2(0).getroproperty("outertext")
Datatable.SetCurrentRow(i)
wait 6
browser("title:=.*").Back
Wend
Now i wanted to export to excel sheet from datatable can you guys 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.
