Unable to Click on Mutiple Links in Web Table

[branjitk]

Hi All,

I am having error while click on Multiple Links using childobjects method.
I am calculating the link count, for click on each link i am using For loop
but it works only for first link from second link is showing General Error.
Below i am using code like this.

Code:

If Browser("Browser").Page("-- Welcome to YANG MING").Frame("right_3").WebTable("Service").Exist(10) Then Set Desc = Description.Create( ) Desc("micclass").Value = "Link" Set objLinks = Browser("Browser").Page("-- Welcome to YANG MING").Frame("right_8").WebTable("Service").ChildObjects(Desc) LinkCount = objLinks.Count ' msgbox(LinkCount) For l = 0 to LinkCount-1 objLinks(l).Click Next End If

[sshukla12]

Could u please provide the snap shot of application and error u r getting.

Regards,
Sankalp

[branjitk]

Hi Sankalp,
ThankYou For your reply,
The Screen Shot is attached.

Regards,
Ranjit Kumar B

[sshukla12]

Hi,
When u click the link 1st time a new page is open , due to which reference object u have created is lost.
I implemented the same on google home page.
Below is the code, use it as a refrence.

Code:

SystemUtil.Run "iexplore.exe","www.google.co.in" Set desc=Description.Create() desc("micclass").Value="Link" desc("html tag").value="A" Set obj=Browser("Google").Page("Google").ChildObjects(desc) MsgBox(obj.Count) For i=0 to obj.Count-1 Set odesc=Description.Create() odesc("micclass").Value="Link" odesc("html tag").value="A" Set obj1=Browser("Google").Page("Google").ChildObjects(odesc) obj1(i).Click 'Browser("Google").Page("Google").Link("Search").Click Browser("Google").Close SystemUtil.Run "iexplore.exe","www.google.co.in" Next

Regards,
Sankalp

[ssvali]

Hi,

Can you please us that after clicking first link, will a new browser will open ?

---

Hi ,
Pls try the below code and let us know the result

Code:

SystemUtil.Run "iexplore.exe","www.google.co.in" Set desc=Description.Create() desc("micclass").Value="Link" Set obj=Browser("Browser").Page("Page").WebTable("ATable").ChildObjects(desc) For i=0 to obj.Count-1 Set obj1=Browser("Browser").Page("Page").WebTable("ATable").ChildObjects(desc) val = obj1(i).GETroProperty("text") Print val obj1(i).Click Wait(2) Browser("Browser").Back Next

[branjitk]

Hi sankalp,
Thank you very much,
The code is working perfectly.

[sshukla12]

Glad to hear it worked 4 U

Regards,
Sankalp