elements of a page

[alrodopial]

I show sometime ago a piece of vba code for extracting the elements of a page and it's contents.
It was a simple code that extracts in column A the element's name, in column B the elements id's ,in column C ???, in column D the inner text.
If i remember correctly there were 4 columns used, 4 pieces of info were extracted.
Can someone provide or create something similar?

The code was similar with the below:

Code: Select all

Sub GetAllTables(D)
For Each E In D.all
    If E.nodename = "TABLE" Then
        Set t = E
   
        tabno = tabno + 1
        nextrow = nextrow + 1
       
        Set Rng = Range("B" & nextrow)
        Rng.Offset(, -1) = "Table " & tabno
       
        For Each r In t.Rows
           
            For Each c In r.Cells
                Rng.Value = c.innerHTML
                Set Rng = Rng.Offset(, 1)
                I = I + 1
            Next c
           
            nextrow = nextrow + 1
           
            Set Rng = Rng.Offset(1, -I)
           
            I = 0
           
        Next r
    End If
Next E

End Sub

[alrodopial]

Found it:

Code: Select all

Sub DownloadBasicINFO()
   
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
   
    CurrentHorsePreviusResultsURL = "http://www.racingpost.com/horses/horse_form.sd?horse_id=730819"
    IE.Navigate CurrentHorsePreviusResultsURL
    Do While IE.Busy Or IE.ReadyState <> 4: DoEvents: Loop
   
    Set basic = IE.document
   
    Sheets("temp").Select
    j = 0
    For I = 0 To basic.all.Length - 1
    'If basic.all(i).className = "smlCardBg" Then
    j = j + 1
    Cells(j, 1).Value = basic.all(I).innerTEXT
    Cells(j, 2).Value = basic.all(I).ID
    Cells(j, 3).Value = TypeName(basic.all(I))
    Cells(j, 4).Value = basic.all(I).className
    'End If
    Next I
   
    'ie.Quit
   
    End Sub