Get attribute string value von html

Question

Ich bin ein Makro erstellen, um Daten von der Website mit vba zu extrahieren. Gegenwärtig kann ich einfach Wert aus dem Tabelleninhalt mit der Elementsyntax wie obj.getElementsByTagName("td").innerText erhalten. Wenn es jedoch in einigen Zellen einige nicht-innereText-Daten gibt, bekomme ich Probleme. Es ist so:

<img src="/images/amber_pending.gif" border="0" alt="Pending" title="Pending"> 

ich aus „title“ den Attributwert zu extrahieren versucht, mit Syntax ich von anderen gefunden:

For Each tbObj In doc.getElementsByClassName("report removeTdBorder") 
    i = 1 
    For Each trObj In tbObj.getElementsByTagName("tr") 
     If i >= 3 Then 
      j = 1 
      For Each tdObj In trObj.getElementsByTagName("td") 
       If j = 1 Then 
        Set imgObj = tdObj.getElementsByTagName("img") 
        dataArray(i, j) = imgObj.getAttribute("title") 
        Debug.Print imgObj.getAttribute("title") 
        ActiveCell.Offset(0, j) = dataArray(i, j) 
        ActiveCell.Offset(0, j).WrapText = False 
       Else 
        dataArray(i, j) = tdObj.innerText 
        Debug.Print i & ", " & j & ": " & dataArray(i, j) 
        ActiveCell.Offset(0, j) = dataArray(i, j) 
        ActiveCell.Offset(0, j).WrapText = False 
       End If 
       j = j + 1 
      Next tdObj 
      ActiveCell.Offset(1, 0).Activate 
     End If 
     i = i + 1 
    Next trObj 
Next tbObj 

Aber dieser Code geht Fehler jedes Mal, und es wird gesagt „Laufzeit Fehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht "an der Zeile dataArray(i, j) = imgObj.getAttribute("title"). Könnte mir jemand helfen?

Answer 1

Set imgObj = tdObj.getElementsByTagName("img") 

gibt eine Sammlung von Bildern (auch wenn es nur einen zu finden), so dass Sie ein bestimmtes Bild Adresse (zB):

dataArray(i, j) = imgObj(0).getAttribute("title")