Cambio de Moneda

hola, Luis Guillermo !

Como puedo obtener en una Celda el valor de una Moneda extranjera (ej.Dolar) y que se me actualice diariamente con respecto al valor a pagar en Pesos Colombianos por cada Dolar?

te sugiero llevar un registro con los tipos de cambio, donde puedas rescatar el correspondiente a "X"-dia ;)

hubo una consulta similar (+/- por 2005) hablando del tipo de cambio en Peru
te la paso al final del presente, ve como debas adaptarla para que te funcione y...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

post anterior ==

... el usuario... quiere que... una macro, un boton que diga exportar tc de www.elcomercio.com.pe
... lo traiga automaticamente... para que evite estar ingresando a la pagina, copiar y pegar
... me han indicado como hacerlo en visual basic, pero no se como se implementa o como hacerlo en excel
... Usando un control Microsoft Internet Transfer Control 6.0... seria una salida para mi sistema pero en la hoja de excel [...]

el codigo que te expongo al final del presente, podrias asignarselo a algun objeto incrustado en la hoja de excel del usuario
-> (p.e. algun boton de comando, autoforma, figura, etc.)
si el boton viene de la barra de herramientas cuadro de controles...
-> las lineas de la macro seria mejor pasarlas al evento '_click' de ese boton en el modulo de codigo de esa hoja ;)

ANTES: agrega una referencia en el proyecto de macros [vba - excel] a la biblioteca de objetos:
-> Microsoft Internet Controls

estoy suponiendo que deseas depositar en la celda 'A2' el tipo de cambio a la compra y en 'B2' el de venta

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Actualizar_TC()
Dim TC As String, Pos As Integer
With CreateObject("InternetExplorer.Application")
.Navigate URL:="http://www.elcomercioperu.com.pe/online/"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
TC = .Document.Body.InnerText
.Quit
End With
Pos = InStr(TC, "Dólar") + 9
' [a1] = "Compra"
[a2] = Mid(TC, Pos, 5)
' [b1] = "Venta"
[b2] = Mid(TC, Pos + 9, 5)
End Sub