ウェブサイトからのデータの廃棄

Question

<div class="si-content "> 
<h2 class="si-ttl si-trs-ttl"> 
    Seller information 
</h2> 
<div class="bdg-78"> 
<div class="mbg"> 
    <a href="http://www.ebay.co.uk/usr/userid5.2.17?_trksid=p2047675.l2559" 
     aria-label="Member ID:&nbsp;userid5.2.17" id="mbgLink"> <span class="mbg- 
     nw">userid5.2.17</span></a> 
    <span class="mbg-l"> 
    (<a href="http://feedback.ebay.co.uk/ws/eBayISAPI.dll? ViewFeedback&userid=userid5.2.17&iid=122504533088&ssPageName=VIP:feedback&ftab=F 
     eedbackAsSeller&rt=nc&_trksid=p2047675.l2560" title="Feedback score: 
     15658">15658</a> 
    <img 
     alt="Feedback score: 15658" 
     title="Feedback score: 15658" 
     src="http://ir.ebaystatic.com/pictures/aw/pics/star-11.gif"">)</span> 
</div> 

どのようにvbを使用してフィードバックスコアを得ることができますか？私が持っているコードは、getelementbyidのためのものです。

歓迎

Answer 1

各リンクをループするためにgetElementsByTagNameを使用できます。次に、getAttributeを使用して、各リンクのtitle属性を調べることができます。ここに例があります...

'Requires a reference (VBE > Tools > Reference) to 
'the Microsoft HTML Object Library 
Dim HTMLDoc As New MSHTML.HTMLDocument 
Dim HTMLLink As MSHTML.IHTMLAnchorElement 

HTMLDoc.body.innerHTML = Range("A1").Value 

For Each HTMLLink In HTMLDoc.getElementsByTagName("a") 
    If Left(HTMLLink.getAttribute("title"), 15) = "Feedback score:" Then 
     MsgBox HTMLLink.innerText, vbInformation 
     Exit For 
    End If 
Next HTMLLink