Valuta kruser

For at kunne få de aktulle valuta kurser, skal der være nogen der gidder at levere dem til dig, helst i XML format, men det er næppe noget som man gratis kan få, jeg har endnu ikke fundet noget.

Så er alternativet at man finder et egenet site og screen scraper indholdet, men det kan også give en del problemer, og så skal man have noge komponenter installeret på ens webserver for at det virker.

Så mit umiddelbare bud er at du tager et kig på eks. http://www.xe.com/ucc/customize.htm

Luk

Du er godt nok hurtig hva

Function FindValutakurs(ISO)
 
  ' URL til XML-fil
  xmlfil = "http://www.nationalbanken.dk"
  xmlfil = xmlfil & "/dndk/valuta.nsf/valuta.xml"
 
  ' Brug Microsofts MSXML
  Set doc = CreateObject("msxml2.DOMDocument")
  doc.async = False
 
  ' Hent fil
  doc.Load xmlfil
 
  ' Find og returner kurs ved hjælp af XPATH
  Set noder = doc.selectNodes _
  ("//currency[@code='" & ISO & "']")
  FindValutakurs = Val(noder(0).Attributes. _
  getNamedItem("rate").Text)
 
End Function