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"값을 가진 "title"속성을 찾아 "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) 또는 .Children (0) 행운와 나는 그것을 통해 나를 걸어 모든 문서를 발견하지 않았습니다.

이 사이트 나 설정하는 데 도움이되는 사이트와 관련하여 도움이 필요합니다.

고마워요

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_COMPLETEIE.readyState = READYSTATE_COMPLETE And IE.Busy = False에