Selenium VBA Excel-vejledning (Chrome Web Scrap)ping)

Hvad er data scrapingping Ved brug af Selenium?

Selenium er et automatiseringsværktøj, der letter scrapingping information fra HTML-websider, udførelse af webscrapingping med Google ChromeI Excel, den Selenium typebiblioteket lader VBA køre en rigtig browser i stedet for den forældede Internet Explorer-motor.

Sådan forbereder du Excel-makroen før dataskrabningping Ved brug af Selenium

Der er visse forudsætninger, der skal udføres på Excel-makrofilen, før dataskrabningen påbegyndes.ping proces.

Disse forudsætninger er som følger:

Trin 1) Åbn en Excel-baseret makro, og åbn Udvikler-indstillingen i Excel.

Trin 2) Vælg Visual Basic-indstillingen under Udvikler-båndet.

Trin 3) Indsæt et nyt modul.

Trin 4) Initialiser en ny subrutine og navngiv den test2.

Sub test2()
End Sub

Resultatet i modulet ville være som følger:

Trin 5) Få adgang til referencefunktionen under fanen Værktøjer, og se på Selenium Typebibliotek. Dette bibliotek hjælper med at åbne Google Chrome og letter makroscripting.

Nu er Excel-filen klar til at interagere med browseren. Næste trin er at integrere et makroscript, der letter datascratching.ping i HTML.

Sådan åbnes Google Chrome Bruger VBA

Her er trinene til at åbne Google Chrome ved hjælp af VBA.

Trin 1) Deklarer og initialiser variablerne i subrutinen som vist nedenfor.

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

Trin 2) At åbne Google Chrome ved brug af Selenium og VBA, skriv driver. Start “Chrome” og tryk på F5.

Følgende ville være koden.

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

Modulet ville resultere som følger:

Sådan åbner du en hjemmeside i Google Chrome Bruger VBA

Når du har adgang Google Chrome Ved brug af VBA er det næste trin at tilgå et websted ved hjælp af VBA. Dette gøres lettere ved hjælp af Get-funktionen, hvor URL sendes som dobbelte anførselstegn.

Modulet ville se således ud:

Tryk på F5 for at udføre makroen. Følgende webside åbnes i Google Chrome som vist.

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

Nu er Excel-makroen klar til at udføre scratchenping opgaver. Det næste trin viser, hvordan informationen kan udvekslestracved at anvende Selenium og VBA.

Sådan skraber du information fra et websted ved hjælp af VBA

Antag, at daytraderen ønsker at tilgå dataene fra hjemmesiden dagligt. Hver gang daytraderen klikker på knappen, burde den automatisk hente markedsdataene ind i Excel.

Fra ovenstående hjemmeside er det nødvendigt at inspicere et element og observere, hvordan dataene er struktureret. Få adgang til kildekoden til HTML-koden nedenfor ved at trykke på Ctrl + Shift + Jeg.

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

Som du kan se, er dataene struktureret som en enkelt HTML-tabel. For at hente alle dataene fra HTML-tabellen skal du derfor designe en makro, der henter headeroplysningerne og de tilsvarende data, der er knyttet til tabellen. Udfør opgaverne nedenfor.

Trin 1) Formuler en For-løkke, der kører gennem HTML-headerinformationen som en samling. Selenium Driveren finder headeroplysningerne ved hjælp af metoderne FindElementByClass() og FindElementByTag(), som vist.

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

Trin 2) Dernæst Selenium Driveren finder tabeldataene ved hjælp af en lignende fremgangsmåde. Skriv følgende kode:

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 kan initialiseres ved hjælp af attributten Range eller attributten Cells i arket. For at reducere kompleksiteten af ​​VBA-scriptet initialiseres samlingsdataene til attributten Cells i ark 2 i projektmappen. Attributten Text hjælper med at placere teksten under et HTML-tag.

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

VBA-modulet ville se således ud:

Trin 3) Når makroskriptet er klar, skal du tildele subrutinen til en Excel-knap og afslutte VBA-modulet. Navngiv knappen som Opdater eller et andet passende navn. I dette eksempel er knappen mærket Opdater.

Trin 4) Tryk på Opdater-knappen for at få nedenstående output.

Trin 5) Sammenlign resultaterne i Excel med resultaterne i Google Chrome.

Ofte Stillede Spørgsmål