Trying to write code for clicking on the links that are in HTML table

Question

Hi,
I have an application, where in I created a table test for one HTML table. The table test case is passed. Now I am trying to write some VBA code for clicking on the links that are in the table.
Please help me.
I was trying to write the following code:
Dim tbl As HTMLTable
' tbl = "window(index=0).Tag[TABLE](index=11)"
Dim tblrow As HTMLTableRow
For Each tblrow In tbl
tblrow.click
Next
but getting error as runtime error 424: Object required.
Is what I am doing is correct.
I also have another question regarding assigning the no of links to a integer.
Call RSWApp.WriteToLog("Number of links", objDocument.links.Length) ( i have this code from one of the forum entries).
This writes the links to the Results log. but is there a way to assign this value to an integer.
Thanks in advance.
Sailaja.

Answer 1

Hi,
Thanks.
Q1: I am able to copy all the links to a .csv file for databank. But not able to pass that variable through VBA code in order to click the links.
I used the following code to copy the links from the application to .csv file
Dim myFs As Scripting.FileSystemObject
Dim myFile As Scripting.TextStream
Set myFs = New Scripting.FileSystemObject
Set myFile = myFs.OpenTextFile("C:\Empirix\eTEST\DataBank\linksData.csv", ForWriting)
Q2: I was using the following code for clicking. ( This is different from above. I was trying other alternative without using databank.)
Dim myDoc As HTMLDocument
Dim myLink As HTMLAnchorElement
Set myDoc = RSWApp.om.GetTopDocument
For Each myLink In myDoc.links
If myLink.Id = "AppsNavLink" Then
myLink.click
End If
Next
The problem here is, The "clicking" is happening but not visible in the application. I have 70 links to click, after the test is passed, the cursor is pointing to the last link ( 70th link).
Please help me if I am doing wrong.
Thanks,
Sailaja.