hente valutakurser online

Kurserne ligger her i XML

http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml


Så skal man jo bare have dem hentet. Koder du i VBA?

jep

Jeg har ikke tid til at gøre mere ved det :o(

On Error GoTo error
Dim varX As Date
varX = Format(DLast("[indtastdato]", "valuta_kurser"), dd - mm - yyyy)
If varX = Date Then Exit Function
    Dim source As MSXML2.DOMDocument
 
   
    Set source = CreateObject("Msxml2.DomDocument")
    source.async = False
    source.setProperty "ServerHTTPRequest", True
    source.load CStr("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")

    Dim Base
   
    Set Base = source.documentElement.firstChild
    ReDim Kurs(1, 36)
    For i = 0 To Base.childNodes.Length - 1
        Kurs(0, i) = Left(Base.childNodes.Item(i).getAttribute("code") & ";", 3)
        Kurs(1, i) = Base.childNodes.Item(i).getAttribute("rate")
    Next
   
    Set source = Nothing
    Set Base = Nothing
error:

If err.Number = 91 Then
MsgBox "Der er ikke adgang til internettet" & vbCrLf & " Der kunne derfor ikke hentes valuta-kurser online", vbCritical, "Internet forbindelse"
ok = False

Exit Function
Else
End If