how to get data from javascript to excel

[teireii]

Hello, i would like to ask about how can we get the data from a html which is using javascript to show data in a table.

Historical Exchange Rates | OANDA

i need to extract various kind of currency exchange rates from the site. from usd to other currency and vice versa. I tried to use the get external data from web function in excel, but the website may protect these kind of query so i cannot get the table i want. becase i need to input the original currency and target currency in the website, i cannot get the table without inputting the org and target currency. this is the only recognize site the company use, so i have to stick with this site..........

everyday i need to convert up to 2k times, is there any VBA for me to use so that i can run the code to auto extracting the exchange rate? thank you very much!!!!

 

[teireii]

got below codes for generating the rates:
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">Sub GetRates()

Dim myURL As String, sFilename As String
Dim WinHttpReq As Object, oStream As Object

myURL = "http://www.oanda.com/currency/historical-rates/download?quote_currency=USD&end_date=" & Format(Now(), "yyyy-m-d") & "&period=daily&display=absolute&rate=0&data_range=d60&price=bid&view=graph&base_currency_0=CAD&download=csv"
sFilename = Environ$("USERPROFILE") & "\Desktop\rates.csv"


Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody

If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile sFilename, 2
oStream.Close
End If

End Sub</code>