Thx inborntester (nice name)
Ok, I have been trying this in different ways, but all I get is an empty cell "" and im not sure why.
The cell has data and i am positive that i found the correct cell as i do ReportName2 = TableObj.GetCellData(r,c) just to find the cell.
I tried the childobjects, but it to returns ""
my code:
Ok, I have been trying this in different ways, but all I get is an empty cell "" and im not sure why.
The cell has data and i am positive that i found the correct cell as i do ReportName2 = TableObj.GetCellData(r,c) just to find the cell.
I tried the childobjects, but it to returns ""
my code:
Code:
For r = BeginTableCount to EndTableCount
ColCount = TableObj.ColumnCount(r)
For c = 1 to ColCount
'ChildCount = TableObj.ChildItemCount(r, c, "WebElement")
'If ChildCount > 0 Then
'For k = 0 to ChildCount - 1
rNumber = rNumber +1
'Set LinkObj = TableObj.ChildItem(r, c, "innertext:=" & FaxName", k)
ReportName1 = TableObj.GetROProperty("innerText")
ReportName2 = TableObj.GetCellData(r,c)
If ReportName2 = FaxName Then
'absX = LinkObj.GetROProperty("abs_x")
'absY = LinkObj.GetROProperty("abs_y")
inrtxt=Browser("Fax Request").Page("Page").WebTable("Fax Status").Object.rows(r).cells(1).innertext
identifier ="innertext:="&inrtxt
a=Browser("Fax Request").Page("Page").WebElement( identifier).GetROProperty("abs_x")
msgbox(a)
Browser("Fax Request").Page("Page").WebElement("innertext:=" & FaxName ).Highlight
Reporter.ReportEvent micPass, "Fax Found: " & FaxName , "The fax: " & FaxName & " - was found in the Fax Status report."
Window("hwnd:=" & hWnd).Close
Exit Function
End If
'Next
'End If
Next
Next
End If