Convertir de dolares a euros
LuisVF
Hay forma de tener una celda el cociente para que al multiplicarlo de el
valor en dolares
Se supone que esa celda se actualizar� cada vez que se abra el archivo para
"leer" de alg�n sitio la cotizaci�n actual
Gracias por responder
LuisVF
todos los d�as el coeficiente
"LuisVF" <ironiza...@gmail.com> escribi� en el mensaje
news:Offwc2fF...@TK2MSFTNGP02.phx.gbl...
H�ctor Miguel
> Cuando digo de alg�n sitio me refiero de internet. No tener que modificar todos los dias el coeficiente
>
>> Hay forma de tener una celda el cociente para que al multiplicarlo de el valor en dolares
>> Se supone que esa celda se actualizara cada vez que se abra el archivo para "leer" de alg�n sitio la cotizacion actual
de que sitio de internet obtendrias estos factores y en cual celda de cual hoja los pondrias (exactamente) ?
saludos,
hector.
LuisVF
Pues no s� de d�nde descargar la informaci�n pero encontr� esta p�gina:
http://planillero.cl/functions.aspx
D�nde est� el libro Monedas.xls que hace lo que ten�a pensado
Como est� protegido no s� como lo hace pero se conecta a "alg�n sitio",
supongo que un servicio gratuito, y se descarga el cambio actual de un
mont�n de monedas
Quer�a saber como lo hacen y a d�nde se conectan y hacer yo algo similar.
Lo de la celda, bueno, Pues por ejemplo en la columna A tengo los precios en
Euro y en la columna B los quiero en dolares y el factor de conversi�n (o
como se llame) en D2
Gracias por responder
"H�ctor Miguel" <NOhemio...@PLShotmail.com> escribi� en el mensaje
news:uw$948jFK...@TK2MSFTNGP04.phx.gbl...
H�ctor Miguel
1) el libro que mencionas solo contiene una consulta web, y para obtener "a donde" se conecta
ejecuta la siguiente instruccion desde la ventana de inmediato (ctrl + G) en el editor de vba (alt + F11)
? activesheet.querytables(1).connection
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 (?)
3) (probable o seguramente) existen mas sitios de donde obtener los tipos de cambio actualizados
(cuestion de hacer una busqueda hasta encontrar una pagina menos "saturada" de informacion ???)
saludos,
hector.
__ OP __
> Pues no se de donde descargar la informacion pero encontre esta pagina:
> http://planillero.cl/functions.aspx
> Donde esta el libro Monedas.xls que hace lo que tenia pensado
> Como esta protegido no se como lo hace pero se conecta a "algun sitio", supongo que un servicio gratuito
> y se descarga el cambio actual de un monton de monedas
> Queria saber como lo hacen y a donde se conectan y hacer yo algo similar.
>
> Lo de la celda, bueno, Pues por ejemplo en la columna A tengo los precios en Euro y en la columna B los quiero en dolares
> y el factor de conversion (o como se llame) en D2 ...
LuisVF
>
> 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?
H�ctor Miguel
>> 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.
LuisVF
"H�ctor Miguel" <NOhemio...@PLShotmail.com> escribi� en el mensaje
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
H�ctor Miguel
> 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
LuisVF
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" <NOhemio...@PLShotmail.com> escribi� en el mensaje
news:ek$O8iVJK...@TK2MSFTNGP02.phx.gbl...