Selenium Tutorial de VBA para Excel (Chrome Web Scrap)ping)

¿Qué es Data Scrap?ping El uso de Selenium?

Selenium es una herramienta de automatización que facilita el scraping información de páginas web HTML, realizando web scrapingping con Google Chrome. En Excel, el Selenium La biblioteca de tipos permite que VBA controle un navegador real en lugar del motor obsoleto de Internet Explorer.

Cómo preparar la macro de Excel antes de extraer los datosping El uso de Selenium

Existen ciertos requisitos previos que deben cumplirse en el archivo de macro de Excel antes de comenzar la extracción de datos.ping .

Los requisitos previos son los siguientes:

Paso 1) Abra una macro de Excel y acceda a la opción Desarrollador de Excel.

Paso 2) Seleccione la opción Visual Basic en la cinta de opciones Desarrollador.

Paso 3) Insertar un nuevo módulo.

Paso 4) Inicializa una nueva subrutina y nómbrala test2.

Sub test2()
End Sub

El resultado en el módulo sería el siguiente:

Paso 5) Acceda a la opción Referencia en la pestaña Herramientas y haga referencia a la Selenium Biblioteca de tipos. Esta biblioteca ayuda a abrir Google Chrome y facilita la creación de macros.

Ahora el archivo de Excel está listo para interactuar con el navegador. El siguiente paso es incorporar un script de macro que facilite la extracción de datos.ping en HTML.

Como abrir Google Chrome Usando VBA

Aquí están los pasos para abrir Google Chrome usando VBA.

Paso 1) Declara e inicializa las variables en la subrutina como se muestra a continuación.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer

Paso 2) Para abrir la Google Chrome usando Selenium y VBA, escriba el controlador. Inicie “Chrome” y presione F5.

El siguiente sería el código.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
driver.Start "Chrome"
Application.Wait Now + TimeValue("00:00:20")
End Sub

El módulo quedaría de la siguiente manera:

Cómo abrir un sitio web en Google Chrome Usando VBA

Una vez que puedas acceder Google Chrome Utilizando VBA, el siguiente paso es acceder a un sitio web utilizando VBA. Esto se facilita mediante la función Get, donde URL se pasa entre comillas dobles.

El módulo tendría el siguiente aspecto:

Pulse F5 para ejecutar la macro. Se abrirá la siguiente página web en Google Chrome como se muestra.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
driver.Start "Chrome"
driver.Get "https://demo.guru99.com/test/web-table-element.php"
Application.Wait Now + TimeValue("00:00:20")
End Sub

Ahora la macro de Excel está lista para realizar el raspadoping tareas. El siguiente paso muestra cómo se puede extraer la información.tracted mediante la aplicación Selenium y VBA.

Cómo extraer información de un sitio web usando VBA

Supongamos que el inversor quiere acceder a los datos del sitio web diariamente. Cada vez que haga clic en el botón, los datos del mercado deberían importarse automáticamente a Excel.

Desde el sitio web mencionado anteriormente, es necesario inspeccionar un elemento y observar cómo se estructuran los datos. Acceda al código fuente del HTML a continuación presionando Control + Shift + Yo.

<table class="datatable">
<thead>
<tr>
<th>Company</th>
<th>Group</th>
<th>Pre Close (Rs)</th>
<th>Current Price (Rs)</th>
<th>% Change</th>
</tr>

Como puede observar, los datos están estructurados como una única tabla HTML. Por lo tanto, para extraer todos los datos de la tabla HTML, debe diseñar una macro que extraiga la información del encabezado y los datos correspondientes asociados a la tabla. Realice las siguientes tareas.

Paso 1) Formula un bucle For que recorra la información del encabezado HTML como una colección. Selenium El controlador localiza la información del encabezado utilizando los métodos FindElementByClass() y FindElementByTag(), como se muestra.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get "https://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th

Paso 2) A continuación, el Selenium El controlador localiza los datos de la tabla utilizando un enfoque similar. Escriba el siguiente código:

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get "https://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th
For Each tr In driver.FindElementByClass("dataTable").FindElementByTag("tbody").FindElementsByTag("tr")
columnC = 1
For Each td In tr.FindElementsByTag("td")
Sheet2.Cells(rowc, columnC).Value = td.Text
columnC = columnC + 1
Next td
rowc = rowc + 1
Next tr
Application.Wait Now + TimeValue("00:00:20")
End Sub

Excel se puede inicializar usando el atributo Range o el atributo Cells de la hoja. Para simplificar el script VBA, los datos de la colección se inicializan con el atributo Cells de la Hoja 2 del libro. El atributo Text permite insertar el texto dentro de una etiqueta HTML.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get "https://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th
For Each tr In driver.FindElementByClass("dataTable").FindElementByTag("tbody").FindElementsByTag("tr")
columnC = 1
For Each td In tr.FindElementsByTag("td")
Sheet2.Cells(rowc, columnC).Value = td.Text
columnC = columnC + 1
Next td
rowc = rowc + 1
Next tr
Application.Wait Now + TimeValue("00:00:20")
End Sub

El módulo VBA tendría el siguiente aspecto:

Paso 3) Una vez que el script de macro esté listo, asigne la subrutina a un botón de Excel y salga del módulo VBA. Etiquete el botón como "Actualizar" o con cualquier otro nombre adecuado. En este ejemplo, el botón se llama "Actualizar".

Paso 4) Pulse el botón Actualizar para obtener el resultado que aparece a continuación.

Paso 5) Compare los resultados en Excel con los resultados en Google Chrome.

Preguntas Frecuentes