Trying to find a specific link

[mv8167]

I have an issue, using the code:

Code:

With Browser("Wisdom").Page("Wisdom IA").Frame("parent")
absY = .Link("name:="&ReportName, "visible:=True").GetROProperty("abs_x")
absY = .Link("name:="&ReportName, "visible:=True").GetROProperty("abs_y")
.Link("name:="&ReportName, "abs_x:="&absX, "abs_y:="&absY ).Click
End With

Found even the hidden links on my page, so the code errored due to many matching links.

So, I tried the code:

Code:

Set TableObj = Browser("Wisdom").Page("WisdomLogin").Frame("parent").WebTable("html id:=NestedGrid1")
Set LinkObj = TableObj.ChildItem("Link")
LinkName = LinkObj.GetROProperty("innerText:="&ReportName)
absX = LinkObj.GetROProperty("abs_x")
absY = LinkObj.GetROProperty("abs_y")

but i am getting a object type m,issmatch error.

Any thoughts on what I might be doing wrong?

thx for looking.

[mv8167]

This might be a crazy way to find my link, but i got it to work. Here is my code:

Code:

'Set Table to current open GroupName
        If     Browser("Wisdom").Page("Wisdom IA").Frame("Title:=Please Select An Application").WebTable( "html id:=NestedGrid1").Exist(1) Then
                 Set TableObj = Browser("Wisdom").Page("Wisdom IA").Frame("Title:=Please Select An Application").WebTable("html id:=NestedGrid1")
        Else
                Reporter.ReportEvent micFail, "Document View table Missing",  "The table for Document Type 1 " & " in: " & ReportsLink & " - was NOT found."
                ExitTestIteration
        End If

        BeginTableCount = 1                                                                'Rows number 1 of table being retrived
        EndTableCount = 0                                                                     'End row count of table being retrived
        NewRowCount = TableObj.RowCount                                'Start, Row count of reports for each GroupName
        EndTableCount = NewRowCount - 1                                    'End, Row count of reports for each GroupName

        'Find Link name
        For r = BeginTableCount to EndTableCount
                        ColCount = TableObj.ColumnCount(r)
                        For c = 1 to ColCount
                                ChildCount = TableObj.ChildItemCount(r, c, "Link")
                                 If ChildCount >  0 Then
                                        For k = 0 to ChildCount - 1
                                                    rNumber = rNumber +1
                                                    Set LinkObj = TableObj.ChildItem(r, c, "Link", k)
                                                    LinkName = LinkObj.GetROProperty("innerText")
                                                    If ReportName = LinkName Then
                                                            absX = LinkObj.GetROProperty("abs_x")
                                                            absY = LinkObj.GetROProperty("abs_y")
                                                    End If
                                        Next
                                End If
                      Next
        Next