Extraer datos de pagina web a textbox vba

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
PILARGIANNINE
Miembro Frecuente
Miembro Frecuente
Mensajes: 14
Registrado: 28 Jun 2019 18:02
Ubicación: Perú

Extraer datos de pagina web a textbox vba

Mensaje por PILARGIANNINE » 14 Jul 2019 00:54

Hola,

Estoy tratando de extraer datos de una pagina web y agregarlo a un textbox (Txt_NRazonSocial), según los ejemplos que he visto para ello se requiere usar la instrucción getelementbyid y a la vez, conocer el id del elemento, pero no encuentro el id cuando inspecciono el elemento de la página, solo muestra: <h4 class="list-group-item-heading"> </h4 >

También he tratado con este código sin éxito:
Txt_NRazonSocial.Value = IE.document.getElementByclass("h4.list-group-item-heading").Value

Hasta ahora, lo único que he logrado desde el formulario es abrir la pagina web: https://www.wmtechnology.org/Consultar-RUC/ y al hacer click en el botón buscar abre la pagina web cargando los datos del RUC que se muestra en el textbox (Txt_NRUC) y cargar los datos en la misma página, solo falta extraer la razón social que se muestra en la pagina web al textbox Txt_NRazonSocial

Agradecería mucho cualquier tipo de ayuda. Adjunto archivo.
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
eavjperu
Miembro Frecuente
Miembro Frecuente
Mensajes: 417
Registrado: 07 Nov 2017 11:59
Ubicación: Perú
Contactar:

Re: Extraer datos de pagina web a textbox vba

Mensaje por eavjperu » 14 Jul 2019 01:53

Hola

Déjalo así:

Código: Seleccionar todo

Dim IE As Object

Set IE = CreateObject("InternetExplorer.application")

URL = "https://www.wmtechnology.org/Consultar-RUC/"
IE.Navigate URL
Do
DoEvents
Loop Until IE.ReadyState = 4
IE.document.getelementbyid("txtRuc").Value = Txt_NRUC.Value
    
 
IE.document.getelementbyid("btnAceptar").Click

Application.Wait (Now + TimeValue("00:00:02"))

Txt_NRazonSocial = IE.document.getElementsByTagName("h4")(1).innerText

IE.Quit
Prueba y comentas

Abraham Valencia



PILARGIANNINE
Miembro Frecuente
Miembro Frecuente
Mensajes: 14
Registrado: 28 Jun 2019 18:02
Ubicación: Perú

Re: Extraer datos de pagina web a textbox vba

Mensaje por PILARGIANNINE » 14 Jul 2019 02:18

¡Funciona perfecto, gracias! :D :mrgreen: Solo un ultimo detalle, en vez de mostrar:

20531469616 - INSTITUCION EDUCATIVA N° 00874 SAN JUAN DE MAYNAS

podría solo mostrar:

INSTITUCION EDUCATIVA N° 00874 SAN JUAN DE MAYNAS



Avatar de Usuario
eavjperu
Miembro Frecuente
Miembro Frecuente
Mensajes: 417
Registrado: 07 Nov 2017 11:59
Ubicación: Perú
Contactar:

Re: Extraer datos de pagina web a textbox vba

Mensaje por eavjperu » 14 Jul 2019 11:28

Usa "Right", "Left" o "Mid", actúan igual que las funciones Derecha, Izquierda o Extraer. Como ya sabes que el RUC es siempre de 11 dígitos y hay un guión y un par de espacios, listo, será fácil.

Abraham Valencia



PILARGIANNINE
Miembro Frecuente
Miembro Frecuente
Mensajes: 14
Registrado: 28 Jun 2019 18:02
Ubicación: Perú

Re: Extraer datos de pagina web a textbox vba

Mensaje por PILARGIANNINE » 14 Jul 2019 19:00

Resulto bien con la función mid

Txt_NRazonSocial = Mid(IE.document.getElementsByTagName("h4")(1).innerText, 15, 100)

Gracias por la ayuda. :D



Responder