Selenium Tutoriel VBA Excel (Chrome Web Scrap)ping)

Qu'est-ce que le Data Scrap ?ping L'utilisation de Selenium?

Selenium est un outil d'automatisation qui facilite la création de sites web.ping informations provenant de pages web HTML, exécution de web scrapingping au Google ChromeDans Excel, Selenium Cette bibliothèque de types permet à VBA de piloter un véritable navigateur au lieu du moteur obsolète d'Internet Explorer.

Comment préparer la macro Excel avant l'extraction de donnéesping L'utilisation de Selenium

Certaines opérations préalables doivent être effectuées sur le fichier macro Excel avant de démarrer l'extraction de données.ping processus.

Les conditions préalables sont les suivantes :

Étape 1) Ouvrez une macro Excel et accédez à l'option Développeur d'Excel.

Étape 2) Sélectionnez l'option Visual Basic sous l'onglet Développeur.

Étape 3) Insérez un nouveau module.

Étape 4) Initialisez une nouvelle sous-routine et nommez-la test2.

Sub test2()
End Sub

Le résultat dans le module serait le suivant :

Étape 5) Accédez à l'option Référence sous l'onglet Outils et consultez la référence Selenium Bibliothèque de types. Cette bibliothèque permet d'ouvrir Google Chrome et facilite la programmation de macros.

Le fichier Excel est maintenant prêt à interagir avec le navigateur. L'étape suivante consiste à intégrer un script macro qui facilite l'extraction de données.ping en HTML.

Comment ouvrir Google Chrome Utilisation de VBA

Voici les étapes à suivre pour ouvrir Google Chrome en utilisant VBA.

Étape 1) Déclarez et initialisez les variables dans la sous-routine comme indiqué ci-dessous.

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

Étape 2) Ouvrir Google Chrome grâce à Selenium et VBA, écrivez driver.Démarrez « Chrome » et appuyez sur F5.

Ce qui suit serait le code.

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

Le module donnerait le résultat suivant :

Comment ouvrir un site web en Google Chrome Utilisation de VBA

Une fois que vous pouvez accéder Google Chrome L'étape suivante, en utilisant VBA, consiste à accéder à un site web. Ceci est facilité par la fonction Get, où URL est transmis entre guillemets doubles.

Le module se présenterait comme suit :

Appuyez sur F5 pour exécuter la macro. La page Web suivante s'ouvrira dans Google Chrome comme montré.

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

La macro Excel est maintenant prête à exécuter le processus.ping tâches. L'étape suivante montre comment l'information peut être extracted en appliquant Selenium et VBA.

Comment extraire des informations d'un site web à l'aide de VBA

Supposons qu'un trader souhaite accéder quotidiennement aux données du site web. À chaque clic sur le bouton, les données de marché devraient être automatiquement importées dans Excel.

Sur le site web mentionné ci-dessus, il est nécessaire d'inspecter un élément et d'observer la structure des données. Accédez au code source HTML ci-dessous en appuyant sur Ctrl + . Shift + Je.

<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>

Comme vous pouvez le constater, les données sont structurées dans un seul tableau HTML. Par conséquent, pour extraire l'intégralité des données de ce tableau, vous devez concevoir une macro qui récupère les informations d'en-tête et les données correspondantes. Procédez comme suit.

Étape 1) Formulez une boucle For qui parcourt les informations d'en-tête HTML sous forme de collection. Selenium Le pilote localise les informations d'en-tête à l'aide des méthodes FindElementByClass() et FindElementByTag(), comme indiqué.

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

Étape 2) Ensuite, le Selenium Le pilote localise les données de la table en utilisant une approche similaire. Écrivez le code suivant :

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 peut être initialisé à l'aide de l'attribut Range ou de l'attribut Cells de la feuille. Afin de simplifier le script VBA, les données de la collection sont initialisées dans l'attribut Cells de la feuille 2 du classeur. L'attribut Text permet d'insérer le texte sous une balise 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

Le module VBA se présenterait comme suit :

Étape 3) Une fois le script macro prêt, associez la sous-routine à un bouton Excel et quittez le module VBA. Nommez le bouton « Actualiser » ou tout autre nom approprié. Dans cet exemple, le bouton s’appelle simplement « Actualiser ».

Étape 4) Appuyez sur le bouton Actualiser pour obtenir le résultat ci-dessous.

Étape 5) Comparez les résultats obtenus dans Excel avec les résultats obtenus dans Google Chrome.

FAQ