Forum Discussion

Anonymous's avatar
Anonymous
Not applicable
7 years ago
Solved

Historical exchange rate API

Hi,   I am looking for a way to get historical exchange rates into my report - also daily updated rates - and I have been looking at ecb.europa.eu and their rest API, but find it difficult;  does ...
Need Help
  • Anonymous's avatar
    Anonymous
    7 years ago

    Anonymous I would suggest first creating a table with sequential dates on each row. Then by invoking the function, it will send the dates to the function one by one thus returning the exchange rate info for each day. You can use this example which first generates a list of dates of the past 365 days (this is updated with every refresh) and invokes the function:

     

    let
    Source = {Number.From(Date.AddDays(DateTime.Date(DateTime.LocalNow()),-365))..Number.From(DateTime.Date(DateTime.LocalNow()))},
    #"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Changed Type" = Table.TransformColumnTypes(#"Converted to Table",{{"Column1", type date}}),
    #"Renamed Columns" = Table.RenameColumns(#"Changed Type",{{"Column1", "Date"}}),
    #"Invoked Custom Function" = Table.AddColumn(#"Renamed Columns", "ExchangeRates", each Fn_GetHistoricExchangeRates(Date.ToText([Date],"yyyy-MM-dd"))),
    #"Expanded ExchangeRates" = Table.ExpandTableColumn(#"Invoked Custom Function", "ExchangeRates", {"Currency", "Rate"}, {"Currency", "Rate"}),
    #"Changed Type1" = Table.TransformColumnTypes(#"Expanded ExchangeRates",{{"Rate", type number}, {"Currency", type text}})
in
    #"Changed Type1"

    In order for it to work you should create a function named Fn_GetHistoricExchangeRates, by using the code in my previous post.

     

    Hope that helps!


    Jan

GarlonYau's avatar
GarlonYau
Helper I
2 years ago

Hi Folks,

 

I'm trying to use the code that @janvanwerkhoven provided but I seem to be running into issues.

 

So here's what I've done, I've created the mentioned.

let
    Source = {Number.From(Date.AddDays(DateTime.Date(DateTime.LocalNow()),-365))..Number.From(DateTime.Date(DateTime.LocalNow()))},
    #"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Changed Type" = Table.TransformColumnTypes(#"Converted to Table",{{"Column1", type date}}),
    #"Renamed Columns" = Table.RenameColumns(#"Changed Type",{{"Column1", "Date"}}),
    #"Invoked Custom Function" = Table.AddColumn(#"Renamed Columns", "ExchangeRates", each Fn_GetHistoricExchangeRates(Date.ToText([Date],"YYYY-MM-DD"))),
    #"Expanded ExchangeRates" = Table.ExpandTableColumn(#"Invoked Custom Function", "ExchangeRates", {"Currency", "Rate"}, {"Currency", "Rate"}),
    #"Changed Type1" = Table.TransformColumnTypes(#"Expanded ExchangeRates",{{"Rate", type number}, {"Currency", type text}})
in
    #"Changed Type1"

 

I created a function as well after signing up for the free api from exchangeratesapi.io. The access key has been shared (I know I'm normally shouldn't share this, but I can easily reset it after - I wanted to share it incase the problem is not in the query but in the API key:

= (Date as text) => let
        Source = Json.Document(Web.Contents("https://api.exchangeratesapi.io/v1/" & Date & "?access_key=103e0b5e0bd42045530ea385cc28422b" & "?base=USD" )),
        rates = Source[rates],
        #"Converted to Table" = Record.ToTable(rates),
        #"Renamed Columns" = Table.RenameColumns(#"Converted to Table",{{"Name", "Currency"}, {"Value", "Rate"}})
    in
        #"Renamed Columns"

 

Now, when I try to invoke the function, it tells me that my credentials are incorrect. 

 

I'm a bit lost in terms of what I am doing wrong.

 

Any help would be much appreciated!