Convertir de dolares a euros

2) de la pagina a donde se conecta
(http://fx.sauder.ubc.ca/supplement.html)
cual seria la linea con los tipos de cambio que te interesa (?)

Saludos Hector

Disculpas por tardar tanto en responder

Me intersaría simplemente extraer la conversión euro-dolar y dolar- euro

Vamos, simplemente dos celdas de la tabla. Se puede?

hola, Luis !

2) de la pagina a donde se conecta (http://fx.sauder.ubc.ca/supplement.html)
cual seria la linea con los tipos de cambio que te interesa (?)

Me intersaría simplemente extraer la conversión euro-dolar y dolar- euro
Vamos, simplemente dos celdas de la tabla. Se puede?

"dos celdas de la tabla"... uhmmmm... (exactamente) cuales (?????)
o lo que es lo mismo...

cual seria la linea con los tipos de cambio que te interesa (?)

saludos,
hector.

"Héctor Miguel" escribió en el mensaje
news:

hola, Luis !

2) de la pagina a donde se conecta
(http://fx.sauder.ubc.ca/supplement.html)
cual seria la linea con los tipos de cambio que te interesa (?)

Me intersaría simplemente extraer la conversión euro-dolar y dolar- euro
Vamos, simplemente dos celdas de la tabla. Se puede?

"dos celdas de la tabla"... uhmmmm... (exactamente) cuales (?????)
o lo que es lo mismo...

cual seria la linea con los tipos de cambio que te interesa (?)

saludos,
hector.

Bueno, son dos celdas que andan por ahí en medio

Supongamos que una celda es la segunda fila, tercera columna
Y que la segunda celda es la tercera fila, quinta columna

No veo forma de extraer sólo esas dos celdas

hola, Luis !

Bueno, son dos celdas que andan por ahi en medio
Supongamos que una celda es la segunda fila, tercera columna y que la segunda celda es la tercera fila, quinta columna
No veo forma de extraer solo esas dos celdas

digamos que no tienes idea de lo "simpaticas" que (me) resultan este tipo de consultas... al estilo de:
- "adivinen lo que estoy pensando, averiguenselas como sea, y hagan lo que puedan" :)))))

la siguiente macro se basa en la busqueda de un "codigo de pais" (primera columna de la tabla en la pagina web)
despues hace una serie de "sustituciones" para determinar los valores del tipo de cambio de las 4 monedas:
se asignan a las variables: CAD (dolar canadiense), USD (dolar americano), EUR(o) y GBP (libra esterlina)
las presenta en un cuadro de mensaje (ya tu decidiras que haces con el valor de esas variables)

en el ejemplo puse el codigo para Dolar Australiano (AUD), cambia por el codigo de pais que necesitas ;)

saludos,
hector.

Sub Actualizar_TC()
Dim Codigo As String, Tabla, Pos1 As Long, Pos2 As Long, Linea As String, _
CAD As Single, USD As Single, EUR As Single, GBP As Single
Codigo = "AUD"
With CreateObject("internetexplorer.application")
.Navigate URL:="http://fx.sauder.ubc.ca/supplement.html"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
Tabla = .Document.Body.InnerText
.Quit
End With
Pos1 = InStr(Tabla, Codigo)
Pos2 = InStr(Pos1, Tabla, vbCr, vbTextCompare) - 1
Linea = Mid(Tabla, Pos1, Pos2 - Pos1 + 1)
Pos1 = InStr(5, Linea, " ", vbTextCompare)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
CAD = Left(Linea, Pos1 - 1)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
USD = Left(Linea, Pos1 - 1)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
EUR = Left(Linea, Pos1 - 1)
GBP = Mid(Linea, Pos1 + 2)
MsgBox _
CAD & " <= Dolar Canadiense" & vbCr & _
USD & " <= Dolar Americano" & vbCr & _
EUR & " <= Euro" & vbCr & _
GBP & " <= Libra Esterlina"
End Sub

Gracias (una vez más)

Siento la confúsión. Es cierto que a veces escribo como si todo el mundo
supiera que tengo en mente

Viendo el código es lo que buscaba. Nunca había intentado extraer datos de
una página web. Muy interesante

Gracias por todo otra vez

Saludos


"Héctor Miguel" escribió en el mensaje
news:ek$

hola, Luis !

Bueno, son dos celdas que andan por ahi en medio
Supongamos que una celda es la segunda fila, tercera columna y que la
segunda celda es la tercera fila, quinta columna
No veo forma de extraer solo esas dos celdas

digamos que no tienes idea de lo "simpaticas" que (me) resultan este tipo
de consultas... al estilo de:
- "adivinen lo que estoy pensando, averiguenselas como sea, y hagan lo que
puedan" :)))))

la siguiente macro se basa en la busqueda de un "codigo de pais" (primera
columna de la tabla en la pagina web)
despues hace una serie de "sustituciones" para determinar los valores del
tipo de cambio de las 4 monedas:
se asignan a las variables: CAD (dolar canadiense), USD (dolar americano),
EUR(o) y GBP (libra esterlina)
las presenta en un cuadro de mensaje (ya tu decidiras que haces con el
valor de esas variables)

en el ejemplo puse el codigo para Dolar Australiano (AUD), cambia por el
codigo de pais que necesitas ;)

saludos,
hector.

Sub Actualizar_TC()
Dim Codigo As String, Tabla, Pos1 As Long, Pos2 As Long, Linea As String,
_
CAD As Single, USD As Single, EUR As Single, GBP As Single
Codigo = "AUD"
With CreateObject("internetexplorer.application")
.Navigate URL:="http://fx.sauder.ubc.ca/supplement.html"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
Tabla = .Document.Body.InnerText
.Quit
End With
Pos1 = InStr(Tabla, Codigo)
Pos2 = InStr(Pos1, Tabla, vbCr, vbTextCompare) - 1
Linea = Mid(Tabla, Pos1, Pos2 - Pos1 + 1)
Pos1 = InStr(5, Linea, " ", vbTextCompare)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
CAD = Left(Linea, Pos1 - 1)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
USD = Left(Linea, Pos1 - 1)
Linea = Mid(Linea, Pos1 + 2)
Pos1 = InStr(Linea, " ")
EUR = Left(Linea, Pos1 - 1)
GBP = Mid(Linea, Pos1 + 2)
MsgBox _
CAD & " <= Dolar Canadiense" & vbCr & _
USD & " <= Dolar Americano" & vbCr & _
EUR & " <= Euro" & vbCr & _
GBP & " <= Libra Esterlina"
End Sub