ich möchte ein XML-File auslesen, habe das aber noch nicht oft gemacht. Der Knoten, den ich auslesen möchte sieht wie folgt aus:
<dividendpayment>
<year yr="2017" amount="186.8"/>
<year yr="2018" amount="52.3"/>
</dividendpayment>
Nun versuche ich mit dem folgenden Code eine Collection der ChildNodes zu erhalten über die ich iterieren kann aber es klappt nicht:
Sub XMLTest()
Dim Link As String, Isin As String, ws As Object, xmlDoc As Object, Tag As Object, Collect as _
_
Object
Set ws = ThisWorkbook.Sheets("Tabelle1")
Isin = ws.Cells(1, 1).Value & ".xml"
Link = "ftp://user:passwort@xxx.xxx.x.xxx/files/" & Isin
Set xmlDoc = CreateObject("Microsoft.XMLDom") 'XMLDocument Object erstellen
xmlDoc.LoadXML (Link)
Set Tag = xmlDoc.getElementsByTagName("dividendpayment")
Set Collect = Tag.getElementsByTagName("year")
End Sub
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht." (Bezieht sich auf die letzte Codezeile.)
Wie komme ich an die Werte in diesem Knotenpunkt?
VG,
Marc