Selenium VBA Excel-Tutorial (Chrome Web Scraping)ping)

Was ist Data Scraping?ping Die Verwendung von Selenium?

Selenium ist ein Automatisierungstool, das das Scraping erleichtert.ping Informationen aus HTML-Webseiten, durchgeführtes Web-Scrapingping und Google ChromeIn Excel, Selenium Mithilfe der Typbibliothek kann VBA einen echten Browser anstelle der veralteten Internet Explorer-Engine ansteuern.

Wie man das Excel-Makro vor dem Daten-Scrap vorbereitetping Die Verwendung von Selenium

Es gibt bestimmte Voraussetzungen, die an der Excel-Makrodatei erfüllt sein müssen, bevor mit dem Daten-Scraping begonnen werden kann.ping

Folgende Voraussetzungen müssen erfüllt sein:

Schritt 1) Öffnen Sie ein Excel-basiertes Makro und greifen Sie auf die Entwickleroption von Excel zu.

Schritt 2) Wählen Sie unter dem Menüband „Entwicklertools“ die Option „Visual Basic“ aus.

Schritt 3) Fügen Sie ein neues Modul ein.

Schritt 4) Erstellen Sie eine neue Unterroutine und nennen Sie sie test2.

Sub test2()
End Sub

Das Ergebnis im Modul sähe wie folgt aus:

Schritt 5) Greifen Sie unter der Registerkarte „Tools“ auf die Option „Referenz“ zu und verweisen Sie auf die folgende Datei: Selenium Typbibliothek. Diese Bibliothek hilft beim Öffnen von Typen. Google Chrome und erleichtert die Erstellung von Makroskripten.

Die Excel-Datei ist nun bereit für die Interaktion mit dem Browser. Im nächsten Schritt wird ein Makro-Skript eingebunden, das das Daten-Scraping ermöglicht.ping in HTML.

Wie Öffnen Google Chrome Mit VBA

Hier sind die Schritte zum Öffnen Google Chrome mit VBA.

Schritt 1) Deklarieren und initialisieren Sie die Variablen in der Subroutine wie unten gezeigt.

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

Schritt 2) Öffnen Google Chrome mit automatisierten Selenium und VBA, schreiben Sie Treiber.Starten Sie „Chrome“ und drücken Sie F5.

Der Code wäre wie folgt:

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

Das Modul würde sich wie folgt darstellen:

Wie man eine Website eröffnet Google Chrome Mit VBA

Sobald Sie Zugriff haben Google Chrome Der nächste Schritt bei der Verwendung von VBA ist der Zugriff auf eine Website mithilfe von VBA. Dies wird durch die Get-Funktion ermöglicht, wobei die URL wird als doppelte Anführungszeichen übergeben.

Das Modul würde wie folgt aussehen:

Drücken Sie F5, um das Makro auszuführen. Die folgende Webseite würde sich öffnen. Google Chrome wie gezeigt.

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

Das Excel-Makro ist nun bereit, den Scrap durchzuführen.ping Aufgaben. Der nächste Schritt zeigt, wie die Informationen extrahiert werden können.tracdurch Anwendung Selenium und VBA.

Wie man mit VBA Informationen von einer Website extrahiert

Angenommen, ein Daytrader möchte täglich auf die Daten der Website zugreifen. Jedes Mal, wenn er auf den Button klickt, sollen die Marktdaten automatisch in Excel importiert werden.

Auf der oben genannten Website muss ein Element untersucht werden, um die Datenstruktur zu analysieren. Der Quellcode des unten stehenden HTML-Codes kann durch Drücken von Strg + aufgerufen werden. Shift + Ich

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

Wie Sie sehen, sind die Daten in einer einzelnen HTML-Tabelle strukturiert. Um die gesamten Daten aus der HTML-Tabelle abzurufen, müssen Sie daher ein Makro erstellen, das die Kopfzeileninformationen und die zugehörigen Daten extrahiert. Führen Sie die folgenden Schritte aus.

Schritt 1) Formulieren Sie eine For-Schleife, die die HTML-Header-Informationen als Sammlung durchläuft. Selenium Der Treiber ermittelt die Header-Informationen mithilfe der Methoden FindElementByClass() und FindElementByTag(), wie dargestellt.

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

Schritt 2) Als nächstes Selenium Der Treiber findet die Tabellendaten mit einem ähnlichen Ansatz. Schreiben Sie folgenden Code:

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 kann mithilfe des Bereichs- oder des Zellenattributs des Tabellenblatts initialisiert werden. Um die Komplexität des VBA-Skripts zu reduzieren, werden die Sammlungsdaten im Zellenattribut von Tabellenblatt 2 der Arbeitsmappe initialisiert. Das Textattribut ermöglicht es, den Text innerhalb eines HTML-Tags zu platzieren.

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

Das VBA-Modul würde wie folgt aussehen:

Schritt 3) Sobald das Makroskript fertig ist, weisen Sie die Subroutine einer Excel-Schaltfläche zu und beenden Sie das VBA-Modul. Benennen Sie die Schaltfläche beispielsweise mit „Aktualisieren“. In diesem Beispiel heißt die Schaltfläche „Aktualisieren“.

Schritt 4) Drücken Sie die Schaltfläche „Aktualisieren“, um die unten stehende Ausgabe zu erhalten.

Schritt 5) Vergleichen Sie die Ergebnisse in Excel mit den Ergebnissen in Google Chrome.

Häufig gestellte Fragen