Tipo de Cambio de Web

11/11/2005 - 01:17 por JESUS | Informe spam
Buenas foro, me estan solicitando algo no muy peculiar, que mi programa de
vb obtenga el tipo de cambio del dolar que se encuentra en la pagina
www.elcomercio.com.pe, alguien me puede orientar o fascilitar un codigo de
ejemplo para realizarlo? es mas, me piden que sea una macro en excell, pero
creo que mas rapido seria hacerlo en vb, sin necesidad que el usuario
ingrese al web, sino un boton que sea carpturar tc de el comercio, please
una ayuda, no tengo idea como hacerlo, estoy pidiendo la solucion en Visual
Basic, pero si uds. supieran como hacerlo en excel.

Muchas gracias, si alguien supiera hacerlo en excell, porfa, estare muy
agradecido

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
11/11/2005 - 08:01 | Informe spam
hola, JESUS !

... me estan solicitando... que mi programa de vb obtenga el tipo de cambio del dolar
... se encuentra en la pagina www.elcomercio.com.pe
... un codigo de ejemplo para realizarlo? es mas, me piden que sea una macro en excel
... creo que mas rapido seria hacerlo en vb, sin necesidad que el usuario ingrese al web
... si alguien supiera hacerlo en excel [...]



[creo que] lo mas 'rapido' pudiera ser 'directamente' desde excel... [p.e.]
-> entra a la pagina y EN la tabla que necesitas...
haz un click-derecho sobre la tabla y selecciona del menu contextual: 'exportar a microsoft excel'

ya despues podras explorar las opciones del rango que deja en una hoja de calculo la accion anterior
[una consulta a una base de datos externa a traves de la web]
como 'actualizar' cada vez que se abra el libro... etc. etc. etc. ;)

saludos,
hector.
Respuesta Responder a este mensaje
#2 JESUS
11/11/2005 - 19:15 | Informe spam
Ok, no me explique muy bien, el usuario cuenta con una hoja de excell, y
quiere que le ponga una macro, un boton que diga exportar tc de
www.elcomercio.com.pe, y este lo traiga automaticamente a su pantalla para
que evite estar ingresando a la pagina, copiar y pegar, ya me han indicado
como hacerlo en visual basic, pero no se como se implementa o como hacerlo
en excell, el codigo que me dieron es el siguiente.
Usando un control Microsoft Internet Transfer Control 6.0, ese seria una
salida para mi sistema pero en la hoja de excell como podria ser?

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
Dim s() As String
Text1.Text = Inet1.OpenURL("http://www.elcomercioperu.com.pe/online/")
i = InStr(Text1.Text, "Dólar") + 6
x = InStr(i, Text1.Text, "<br>")
s = Split(Mid(Text1.Text, i, x - i), " ")
Label1.Caption = s(1) 'Compra
Label2.Caption = s(3) 'Venta
End Sub
Respuesta Responder a este mensaje
#3 Héctor Miguel
12/11/2005 - 10:20 | Informe spam
hola, JESUS !

... 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' el 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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida