Parminder,
Wow! this works great. I was making a much bigger todo for nothing.
I am curious why the code I do have wont dig down to find the WebElements of the columns (Account No, Receive Date, Desfription).
I am receiving the following Run Error:
Object required: 'TableObj.ChildItem(...)'
Line (53): "NumPages = TableObj.ChildItem(r,5, "WebElement", k).GetROProperty("innertext")".
I changed the ...(r, 5,.... to ...(r, c,.... to grab all of the page WebElements. The Run Aerror goes away but the data returned to the table only consists of thev DocType and Action columns. I must be pointing to the wrong table.
Attached oin my previous chast is a screenshot of the OR.
My code:
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
thx my friend ;-)
Wow! this works great. I was making a much bigger todo for nothing.
I am curious why the code I do have wont dig down to find the WebElements of the columns (Account No, Receive Date, Desfription).
I am receiving the following Run Error:
Object required: 'TableObj.ChildItem(...)'
Line (53): "NumPages = TableObj.ChildItem(r,5, "WebElement", k).GetROProperty("innertext")".
I changed the ...(r, 5,.... to ...(r, c,.... to grab all of the page WebElements. The Run Aerror goes away but the data returned to the table only consists of thev DocType and Action columns. I must be pointing to the wrong table.
Attached oin my previous chast is a screenshot of the OR.
My code:
Code:
Set TableObj = Browser("Wisdom").Page("Wisdom IA_2").Frame("parent").WebTable("Select All")
RowCount= TableObj.RowCount
rNumber = 1
NumPages = 0
Code:
For r = 1 to RowCount
If r <> 2 Then
ColCount = TableObj.ColumnCount(r)
For c = 1 to ColCount
'msgbox ColCount
ChildCountPage = TableObj.ChildItemCount(r, c, "WebElement")
'msgbox ChildCountPage
If ChildCountPage > 0 Then
For k = 0 to ChildCountPage - 1
rNumber = rNumber +1
NumPages = TableObj.ChildItem(r,5, "WebElement", k).GetROProperty("innertext")
Num = c
If Num <> “” Then
'Retrieve the column index
objExcel.Cells(rNumber, 6).Value = NumPages
'End If
Next
End If
Next
End If
Next
thx my friend ;-)