Not able select list value in HTML

[Raghu]

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").Value = 100
IE.Document.getElementById("flipper").Click
Final_Amount = IE.Document.getElementById("base_amount_input").Value

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

End Sub

 

[Don Guillett]

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

 

[Javed]

Change the block

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

Modified:

Do While IE.Busy
Loop

It worked perfectly

 

[Raghu]

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














- 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???