VBA - 通過標記屬性提取值

Question

我一直在使用以下代碼從網頁中提取值。

Private Sub Update() 

    Dim IE As New InternetExplorer 
    IE.Visible = False 
    IE.navigate "cisco.com/" & Range("srNum").Value 
    Do 
    DoEvents 
    Loop Until IE.readyState = READYSTATE_COMPLETE 
    Dim Doc As HTMLDocument 
    Set Doc = IE.document 
    Dim sTag As String 
    sTag = Doc.getElementById("caseheader").innerText 

    Sheets.Add 
    ActiveCell.Value = sTag 

End Sub 

我現在在一個新的頁面，我需要通過屬性「標題」拉值。在下面的例子中，我需要找到屬性「title」，其值爲「Priority」，然後返回「P3」的值。

<div class="con-LFloat con-RAlign con-Priority Width25"> 
    <span class="con-text-bold Width20 con-RAlign">Priority :</span> 
    <span class="con-text-bold con-LMargin5" title="Priority">P3</span> 
</div> 

我一直在使用.item嘗試（0）或。兒童（0），沒有運氣，我還沒有發現任何文件，以走在我穿過。

我需要一些幫助，可以幫助我設置這個或一個網站。

-Thanks

Answer 1

嘗試增加這樣的事情：

Dim htmlEle1 as IHTMLElement 

On Error Resume Next 
For Each htmlEle1 in Doc.All 
    If htmlEle1.getAttribute("title") = "Priority" then Debug.Print htmlEle1.innertext 
Next htmlEle1 
On Error GoTo 0 

也改變IE.readyState = READYSTATE_COMPLETE到