Web Query not Working

[marioubillus]

Hi all,

I have <acronym>vba</acronym> code for retriveing historical exchange rates is no longer working (used to work OK a couple of months ago) and can't figure out why.

Here is the part of the code that has the query:

------------------------------
curr = "PEN"

qurl = "http://www.oanda.com/lang/es/currency/historical-rates-classic?date_fmt=normal&date=" & EndDate & "&date1=" & StartDate & "&exch=USD&exch2=USD" & "&expr=" & curr & "&expr2=" & curr & "&margin_fixed=0&format=HTLM&redirected=1"


QueryQuote:
With Sheets("TC").QueryTables.Add(Connection:="URL;" & qurl, Destination:=Sheets("TC").Range("E1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With

---------------------------
The resulting qurl value (http://www.oanda.com/lang/es/curren...2=PEN&margin_fixed=0&format=HTLM&redirected=1) works OK (displays the data I need, so no date formatting issues).

The problem is with retrieving and pasting the data into Excel

Thanks in advance for any help

 

[mole999]

have they changed the site to aspx or updated their login scripts, is it related to the 2014 form controls updates at the top of the page

 

[marioubillus]

have they changed the site to aspx or updated their login scripts, is it related to the 2014 form controls updates at the top of the page

Thanks. Had that issue before with other macros but (as far as I know) it’s already solved. NO problems with opening or operating the file except for this issue of not retrieving and pasting the data in the Excel sheet.

 

[mole999]

if you look at the underlying html from the site, does it still retain the locations you expect to get data from, named the same