Obtener texto de página web en Excel

Obtener texto de página web en Excel

Hoy vamos a ver como podemos crear un pequeño código para abrir Internet Explorer visitando una página completa, para después seleccionar todo ese texto e insertarlo en Excel de nuevo, mas concrétamente en nuestra hoja activa (la que esta seleccionada). Comenzamos usando el atajo de teclado ALT + F11 para acceder a la editor de Visual Basic para aplicaciones e insertamos un modulo haciendo click derecho en el árbol de la izquierda donde aparece nuestro libro de Excel.

Una vez creado el módulo creamos una subrutina usando el siguiente snippet:

Sub ObtenerDatosDeInternetExplorer()

'representará nuestra futura instancia de la aplicación Internet Explorer
Dim InternetExplorer as Object
'creamos la instancia de Internet Explorer
Set InternetExplorer = CreateObject("InternetExplorer")


With InternetExplorer
   'Mostramos la ventana de Internet Explorer 
   .Visible = True
   'Le hacemos navegar a la pagina que queramos
   .Navigate "http://{pagina que queramos}"
End With

'Mientras la pagina no se haya cargado dejamos al navegador que haga lo que necesite hacer.
Do Until InternetExplorer.ReadyState=4: DoEvents Loop

'Con esta sentencia seleccionamos toda la pagina (es como un seleccionar todo)
InternetExplorer.ExecWB 17,0

'Copiar todo lo seleccionado
InternetExplorer.ExecWB 12,2

'Pegamos lo anteriormente copiado en la hoja activa sin formato HTML.
ActiveSheet.PasteSpecial Format:="HTML",link:=False, NoHTMLFormatting:=True

End Sub

Con este tipo de procedimientos podemos hacer multitud de tareas que de otro modo tendríamos que realizar manualmente. Tareas que pueden ser de comprobación de uno o varios valores en distintas páginas web, etc…

El vídeo tutorial de Excel

¿Donde puedo encontrar mas tutoriales?

Puedes suscribirte al canal haciendo click aquí.
Por otro lado he creado unas listas de reproducción con tutoriales de Excel ordenados por categorías y capítulos ordenados, puedes consultarlos en los siguientes enlaces:

4 comments On Obtener texto de página web en Excel

  • Hola Josematube, tengo una duda enorme, si tengo una columna A con un criterio de busqueda y una columna B donde debo pegar solo una sección del resultado. Cómo podría editar este macro para que en lugar de ir a la página general fuera a la página que arroja el resultado de la busqueda de la columna A, igualmente en lugar de pegar toda la página solo pegue una sección de la misma.

  • Como puedo seleccionar de una pagina web solo la parte que quiero importar a excel con una macro, te paso la pagina http://www.vitisport.es/index.php?clanek=analyzy&sekce=fotbal&liga=brazilie&lang=esy
    donde quiero importar seria la tabla que esta debajo del todo que pone «GOALS PER MATCH»
    Un saludo

  • Quiero copiar los 4 números generados al azar en una pagina web, pegarlos posteriormente en un cuadro de texto de la misma pagina y ejecutar el boton de «enter». Ya lo intente hacer manualmente, selecciono los 4 números los copio y al momento de pegarlo en la caja de texto me manda un mensaje de que es invalido. Por favor que podrias sugerirme. Gracias.

  • Hola Jose Manuel:

    Me preguntaba si esto se podría hacer desde Google Chrome ya que en mi ordenador ya viene por defecto microsoft Edge (que no me gusta nada…)

    Gracias!!!

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete