Hent data fra XML

Beskrivelse

Sådan kan du hente data fra XML ind i Excel

Se eksemplet når du har købt kurset

Øvelse

Sådan kan du hente data fra XML ind i Excel

Start med at oprette reference til XML objekterne

Så kan man klø på - f.eks.

Sub HentXMLData()     Dim xmlDoc As MSXML2.DOMDocument     Set xmlDoc = New MSXML2.DOMDocument     xmlDoc.Load ("c:\data\valuta.xml")     Dim kode As MSXML2.IXMLDOMNode     Dim koder As MSXML2.IXMLDOMNodeList     Set koder = xmlDoc.DocumentElement.SelectNodes("/exchangerates/dailyrates/currency")     Dim c As Range     Set c = Range("A2")     For Each kode In koder         c.Value = kode.Attributes.getNamedItem("code").NodeValue         c.Offset(0, 1) = kode.Attributes.getNamedItem("rate").NodeValue         Set c = c.Offset(1, 0)     Next     Set xmlDoc = Nothing End Sub

Har du andre XML dokumenter du gerne vil se eksempler på indlæsning af må du lige sende mig en mail.

Du kan hente et XML dokument til eksemplet her: http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml

Forrige Hent data fra SQL

Næste Hent data fra tekst

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →