从一个“";a href";在带有EXCEL VBA的HTML页面中

从一个“";a href";在带有EXCEL VBA的HTML页面中,excel,web-scraping,vba,Excel,Web Scraping,Vba,我正试图用下面的HTML代码从网站上抓取数据 <a href='https://somesite.com/nation/id=344'>Vee Veetis <img src='https://somesite.com/img/flags/albania.jpg' class='tinyflag'></a><br />FireBird </td> 我能够毫无问题地抓取实际链接,但我正在努力找到如何引用包含链接“Vee Veetis”的

我正试图用下面的HTML代码从网站上抓取数据

<a href='https://somesite.com/nation/id=344'>Vee Veetis <img src='https://somesite.com/img/flags/albania.jpg' class='tinyflag'></a><br />FireBird </td>

我能够毫无问题地抓取实际链接,但我正在努力找到如何引用包含链接“Vee Veetis”的文本以及链接后直接对应的文本“Firebird”。是否有人对这些内容的关联和有效清除有指导意见?

您可以使用下面的代码来提取包含“Vee-Veetis”的标签中的数据。请记住,“Vee-Veetis”和“Firebird”在同一个标记中,因此这两个值都将在A1中返回,并用换行符分隔。但您可以将结果存储在字符串中,然后按换行符拆分字符串以返回“Vee-Veetis”或“Firebird”

希望有帮助

    With IE.document

    Set elems = .getElementsByTagName("a")
    For Each e In elems

        If e Like "https://somesite.com/record/id=*" Then
            Sheets("Members").Range("A" & i).Value = e
            Sheets("Members").Range("B" & i).Value = e.innerText ' doesnt work, returns "view" - desire 'Vee Veetis'
            Sheets("Members").Range("C" & i).Value = e.outerText ' doesnt work, returns "view" - desire 'Firebird'
            i = i + 1
            Exit For ' remove this to scrape remaning items once working
        End If

    Next e

    End With
Set elems = IE.document.getElementsByTagName("td")
For Each e In elems

    If e.innerText Like "*Vee Veetis*" Then
    Range("A1").Value = e.innerText
    End If

Next e