Forum Discussion
' Goes through the rows and cells of the table
For i = 0 To Tbl.ChildCount - 1
Log.AppendFolder("SubPolicy " & i)
'find Second table
Set Tbltwo = Tbl.Cell(i,0).Panel(0).Table(0)
Log.Message("Checking " & Tbltwo.FullName)
' Goes through cells
For j = 0 To Tbltwo.ChildCount-1
' Obtains the cell
' Posts the cell's text to the log
Log.Message ("Row: " & i & " Cell 0," & j & ": " & Tbltwo.cell(0,j).innerText)
Next
Next
Log example:
Type Message Time Link
SubPolicy 1 16:22:10
Checking Sys.Process("iexplore").Page("https://ceodbmdl.grangeinsurance.com/ccc/PolicyList.aspx").Form("aspnetForm").Panel(2).Table(1).Cell(0, 2).Table(0).Cell(0, 0).Panel("AutoPolicyList").Table(0).Cell(0, 0).Panel(0).Table(0) 16:22:11
Row: 1 Cell 0,0: Policy # 1754765 1754765 16:22:11