Not able select list value in HTML


R

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
 
Ad

Advertisements

J

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
 
Ad

Advertisements

R

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top