07-30-2012, 04:57 PM
Try this...
Code:
Set Desc_Element = Description.Create()
Desc_Element("micclass").value = "WebElement"
Set Element= Browser("XXX").Page("XXX").WebTable("XXX").childobjects(Desc_Element )
For i = Lbound(Element) to Ubound(Element)
objname = Element(i).GetROProperty("name")
If instr(1,objname,"XLS") = 1 Then
Cnt = Cnt + 1
End If
If instr(1,objname,"PDF") = 1 Then
Cnt = Cnt + 1
End If
Next
Msgbox "Total No. of Elements : = " & Cnt