Import exchange rates in 1 cell only

Adar

New Member
Joined
Aug 8, 2011
Messages
4
Hello everyone,

I was trying to figure out the way of how to import only one exchange rate instead of the table. One excel VBA function popped in into my mind but it stopped working since Yahoo changed structure of their link.

Function FXRate(currency1 As String, currency2 As String, rateType As String) As Double

Dim str As String
Dim temp As String

Dim bidStart As Long
Dim bidEnd As Long
Dim askStart As Long
Dim askEnd As Long
Dim openStart As Long
Dim openEnd As Long
Dim closeStart As Long
Dim closeEnd As Long

Dim bid As Double
Dim ask As Double
Dim ropen As Double
Dim rclose As Double

str = "http://finance.yahoo.com/q?s=" & currency1 & currency2 & "=X"
 

Forum statistics

Threads
1,084,859
Messages
5,380,330
Members
401,666
Latest member
ddekort

Some videos you may like

This Week's Hot Topics

Top