Selenium VBA Excel -opetusohjelma (Chrome Web Scratch)ping)

Mikä on Data Scrabping Käyttäminen Selenium?

Selenium on automaatiotyökalu, joka helpottaa scraapaustaping tietoa HTML-verkkosivuilta, verkkoskannauksen suorittaminenping Google ChromeExcelissä Selenium Tyyppikirjasto antaa VBA:n ajaa oikeaa selainta vanhentuneen Internet Explorer -moottorin sijaan.

Excel-makron valmistelu ennen tietojen kaappaustaping Käyttäminen Selenium

Excel-makrotiedostolle on tiettyjä edellytyksiä, jotka on suoritettava ennen tietojen skannauksen aloittamista.ping prosessiin.

Nämä edellytykset ovat seuraavat:

Vaihe 1) Avaa Excel-pohjainen makro ja käytä Excelin kehittäjävaihtoehtoa.

Vaihe 2) Valitse Visual Basic -vaihtoehto Kehittäjä-valintanauhasta.

Vaihe 3) Aseta uusi moduuli.

Vaihe 4) Alusta uusi aliohjelma ja nimeä se test2:ksi.

Sub test2()
End Sub

Moduulin tulos olisi seuraava:

Vaihe 5) Siirry Työkalut-välilehden Viite-asetuksiin ja viittaa Selenium Tyyppikirjasto. Tämä kirjasto auttaa avaamaan Google Chrome ja helpottaa makrokomentosarjojen kirjoittamista.

Nyt Excel-tiedosto on valmis käytettäväksi selaimen kanssa. Seuraava vaihe on sisällyttää makroskripti, joka helpottaa tietojen skannausta.ping HTML:ssä.

Kuinka avata Google Chrome VBA:n käyttö

Tässä ovat avaamisen vaiheet Google Chrome käyttäen VBA:ta.

Vaihe 1) Määrittele ja alusta aliohjelman muuttujat alla olevan kuvan mukaisesti.

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

Vaihe 2) Avata Google Chrome käyttämällä Selenium ja VBA:han, kirjoita ajuri. Käynnistä Chrome ja paina F5-näppäintä.

Seuraava olisi koodi.

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

Moduulin tuloksena olisi seuraava:

Kuinka avata verkkosivusto Google Chrome VBA:n käyttö

Kun pääset käsiksi Google Chrome VBA:ta käytettäessä seuraava vaihe on verkkosivuston avaaminen VBA:n avulla. Tätä helpottaa Get-funktio, jossa URL välitetään lainausmerkeissä.

Moduuli näyttäisi tältä:

Suorita makro painamalla F5-näppäintä. Seuraava verkkosivu avautuu Google Chrome kuten kuvassa näkyy.

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

Excel-makro on nyt valmis suorittamaan scrapin.ping tehtäviä. Seuraava vaihe osoittaa, miten tietoja voidaan käyttäätracsoveltamalla Selenium ja VBA.

Kuinka kaapia tietoja verkkosivustolta VBA:n avulla

Oletetaan, että päiväkauppias haluaa käyttää verkkosivuston tietoja päivittäin. Joka kerta, kun päiväkauppias napsauttaa painiketta, sen pitäisi automaattisesti hakea markkinatiedot Exceliin.

Yllä olevalla verkkosivustolla on tarpeen tarkastella elementtiä ja havaita, miten tiedot on jäsennelty. Pääset alla olevan HTML-koodin lähdekoodiin painamalla Ctrl + Shift + Minä.

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

Kuten näet, tiedot on jäsennelty yhdeksi HTML-taulukoksi. Jotta voit hakea kaikki tiedot HTML-taulukosta, sinun on suunniteltava makro, joka hakee otsikkotiedot ja taulukkoon liittyvät vastaavat tiedot. Suorita alla olevat tehtävät.

Vaihe 1) Laadi For-silmukka, joka käy läpi HTML-otsikkotiedot kokoelmana. Selenium ajuri paikantaa otsikkotiedot FindElementByClass()- ja FindElementByTag()-metodien avulla, kuten kuvassa näkyy.

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

Vaihe 2) Seuraavaksi Selenium ajuri paikantaa taulukon tiedot samankaltaisella lähestymistavalla. Kirjoita seuraava koodi:

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 voidaan alustaa taulukon Range- tai Cells-attribuutin avulla. VBA-skriptin monimutkaisuuden vähentämiseksi kokoelman tiedot alustetaan työkirjan Sheet 2:n Cells-attribuutilla. Text-attribuutin avulla teksti voidaan sijoittaa HTML-tunnisteen alle.

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-moduuli näyttäisi tältä:

Vaihe 3) Kun makroskripti on valmis, määritä aliohjelma Excel-painikkeelle ja poistu VBA-moduulista. Nimeä painike nimellä Päivitä tai millä tahansa sopivalla nimellä. Tässä esimerkissä painikkeen nimi on Päivitä.

Vaihe 4) Saat alla olevan tulosteen painamalla Päivitä-painiketta.

Vaihe 5) Vertaa Excelin tuloksia Excelin tuloksiin Google Chrome.

UKK