Hi Team,

I am trying execute below macro for getting Currency exchange amount
using www.oanda.com. I am not able to select Input Currency and Output
Currency..

Any ideas?

Sub CurrencyConverter()
Dim IE As InternetExplorer
Dim Base_Currency As String
Dim Quote_Currency As String


Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate "http://www.oanda.com/currency/converter/"

Do While IE.ReadyState < READYSTATE_COMPLETE Or IE.Busy = True
DoEvents
Loop

Base_Currency = "EUR"
IE.Document.getElementById("quote_currency_input") .Value =
Base_Currency 'Not working - Actual currency quote is not getting
selected


Quote_Currency = "USD"

IE.Document.getElementById("base_currency_input"). Value =
Quote_Currency 'Not working - Actual currency quote is not getting
selected

IE.Document.getElementById("quote_amount_input").V alue = 100
IE.Document.getElementById("flipper").Click
Final_Amount = IE.Document.getElementById("base_amount_input").Va lue

MsgBox 100 & Base_Currency & "= " & Final_Amount & Quote_Currency

End Sub