Getting HTML link using Internet Explorer with VBA Excel

Question

Automating an Internet Explorer process by using VBA Excel.

I am trying to get the first link in this classname 'datacell' with the th scope=row in html using the first 'a href' tag as my needed link.

Correct link is black circled but the result is the red circled one

VBA code:

Set appIE = New InternetExplorerMedium
With appIE
    .Visible = False
    .Visible = True
    Set doc = appIE.document
    For Each li In doc.getElementsByClassName("list")
        checkIfAttachment = li.innerHTML
                    
        If InStr(checkIfAttachment, "No matches found") Then
            ws.Cells(i, 6).Value = "Not in SFDC"
        Else
            Set childLi = Nothing
            For Each childLi In doc.getElementsByClassName(" dataCell  ")
                link = childLi.getElementsByTagName("a")(0)
                'first link is the one we want
            Next childLi
                        
            link = Replace(link, "https://sample.com", "")
            link = Replace(link, "?srPos=0&srKp=00P", "")
            .navigate baseSFDCDownloadLink & link
            Do While .Busy = True Or .readyState <> 4: DoEvents: Loop
                Application.Wait (Now + TimeValue("0:00:05"))

you don't need a loop for "datacell" . I'm not familiar with vba but something like this could work . "link = doc.getElementsByClassName(" dataCell ")(0).getElementsByTagName("a")(0)" — pfndesign
– pfndesign, Commented Nov 28, 2021 at 21:30
Please don't post pictures of html. You can use edit and its associated toolbar to find the icon <> which will allow you to insert and format html. — QHarr
– QHarr, Commented Nov 28, 2021 at 22:28
@QHarr hello thank you for the reminder. this is my first time to try the site anyway. — itspapap
– itspapap, Commented Nov 29, 2021 at 6:43

QHarr · Accepted Answer · 2021-11-28 22:31:45Z

1

If you are getting a td rather than th element then specify th e.g. with type css selector (adding class as well)

.document.querySelector("th.dataCell").href

answered Nov 28, 2021 at 22:31

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

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

Comments

pfndesign · Accepted Answer · 2021-11-29 08:48:51Z

0

you don't need a loop for "datacell". I'm not familiar with VBA but something like this could work .

link = doc.getElementsByClassName(" dataCell ")(0).getElementsByTagName("a")(0)

answered Nov 29, 2021 at 8:48

pfndesign

1743 silver badges13 bronze badges

Collectives™ on Stack Overflow

Getting HTML link using Internet Explorer with VBA Excel

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related