Valuta koers ophalen met vba excel van uit de gatgets Valute (win7)

[bontekite]

Is het mogelijk met VBA excel om de valuta koers die in de gadgets staat op te halen.

ik heb al eens met het ophalen van internet gegevens gewerkt maar banken wijzigen regelmatig hun websites waardoor de verwijzingen niet meer kloppen, dan moet steeds de geselecteerde veld aangepast worden.
of is er een betrouwbare site die dit niet steeds wijzigt

Groeten Ben

 

[alphamax]

[SIZE=1]Option Explicit

Public Sub EuroForeignExchangeReferenceRates()
    'http://www.ecb.europa.eu/stats/exchange/eurofxref/html/index.en.html
    Dim lngRow As Long
    Dim objCurrency As Object
    Range("A1").CurrentRegion.ClearContents
    Cells(1, 1).Value = "EUR"
    Cells(1, 2).Value = "1"
    With CreateObject("MSXML2.DOMDOCUMENT")
        .async = False
        .Load "http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml" 'am_2013
        Cells(2, 1).Value = .SelectSingleNode("//Cube[@time]").getAttribute("time")
        lngRow = 2
        For Each objCurrency In .SelectNodes("//Cube[@currency]")
            lngRow = lngRow + 1
            Cells(lngRow, 1).Value = objCurrency.getAttribute("currency")
            Cells(lngRow, 2).Value = objCurrency.getAttribute("rate")
        Next
    End With
    Range("A1").CurrentRegion.Columns.AutoFit
End Sub[/SIZE]

 

[bontekite]

vraag opgelost

Bedankt voor deze oplossing hopend dat deze webside niet vaak verandert.
hiermee is mijn vraag beantwoord

 

[snb]

Daar heb je geen VBA voor nodig; zie de bijlage