VBA Scrape: Get href from Each html element

Question

The code below successfully loops through each element in the DOM and puts each element in an Excel sheet. (tagName, ID, className etc.)

My question, is:

How can I scrape the tag attibutes (title, href etc.) for each element? Specifically, for an "A" tag, how can I scrape the "href" attribute?

Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum

Dim ie As InternetExplorer
Dim html As HTMLDocument
Dim RowNumber As Integer
Set ie = New InternetExplorer

ie.Visible = False
ie.navigate "www.somesite.com"

Do While ie.READYSTATE <> READYSTATE_COMPLETE
    Application.StatusBar = "Connecting..."
    DoEvents
Loop

Set html = ie.document

RowNumber = 1
For Each element In html.all
    Cells(RowNumber, "A").Value = element.tagName
    Cells(RowNumber, "B").Value = element.ID
    Cells(RowNumber, "C").Value = element.className
    Cells(RowNumber, "D").Value = element.innerHTML
    RowNumber = RowNumber + 1
Next element

Any help would be appreciated.

Sebastian Simon · Accepted Answer · 2016-07-05 16:11:00Z

2

Add this line before RowNumber = RowNumber + 1:

If (element.tagName = "A") Then Cells(RowNumber, "E").Value=element.getAttribute("href")

edited Jul 5, 2016 at 16:11

Sebastian Simon

19.8k8 gold badges61 silver badges88 bronze badges

answered Jul 4, 2016 at 12:10

Cymro

1,4842 gold badges12 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Scrape: Get href from Each html element

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related