VBA syntax error on extracting loop

[wolfram13]

Hello I am using the following function to extact information from a site,

Dim tbl, trs, tr, tds, td, r, c

Set tbl = Doc.getElementsByTagName("table")(0)
Set trs = tbl.getElementsByTagName("tr")

For r = 1 To trs.Count
Set tds = trs(r).getElementsByTagName("td")
For c = 1 To tds.Count
ActiveSheet.Cells(r, c).Value = tds(c).innerText
Next c
Next r


but when executed I am getting an error : Object doesn't support this property or method on the following line: For r = 1 To trs.Count

anyone can help ?

[wolfram13]

Here is the whole code that I am using:

Please Login or Register  to view this content.