fred=ServiceConnect["FederalReserveEconomicData"]

fred["SeriesSearch","Query"->"euro exchange rate","SortBy"->{"Frequency","Descending"}];

%12

reerfrance=fred["SeriesData","ID"->{"DEXUSEU"}]

DateListPlot[reerfrance,Filling->False,PlotLabel->"U.S. Dollars to Euro Spot Exchange Rate",GridLines->Automatic,PlotStyle->ColorData[1,1],PlotTheme->"Scientific",ImageSize->Large]