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

Try this url. I can send a file using an external query. dguillett1
@gmail.com
www.gocurrency.com




On Sep 29, 4:11*am, Raghu wrote:
Hi Team,

I am trying execute below macro for getting Currency exchange amount
usingwww.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

Change the block

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

Modified:

Do While IE.Busy
Loop

It worked perfectly

On Sep 29, 5:04*pm, Don Guillett wrote:
Try this url. I can send a file using an external query. dguillett1
@gmail.comwww.gocurrency.com

On Sep 29, 4:11*am, Raghu wrote:



Hi Team,

I am trying execute below macro for getting Currency exchange amount
usingwww.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- Hide quoted text -

- Show quoted text -

I have tried the URL but it is one more Currency converter website.
But is there any help, why the above is not working???