从一个“";a href";在带有EXCEL VBA的HTML页面中
我正试图用下面的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”的
<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”在同一个
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