Selenium Tutorial VBA Excel (Chrome Web Scrap)ping)

Ce este Data Scraping Utilizarea Selenium?

Selenium este un instrument de automatizare care facilitează scraping informații din pagini web HTML, efectuarea de scanări webping implementate cu Google ChromeÎn Excel, Selenium Biblioteca de tipuri permite VBA să gestioneze un browser real în locul motorului depreciat Internet Explorer.

Cum se pregătește macrocomanda Excel înainte de scanarea datelorping Utilizarea Selenium

Există anumite cerințe preliminare care trebuie îndeplinite asupra fișierului macro Excel înainte de a începe extragerea datelor.ping proces.

Aceste premise sunt după cum urmează:

Pas 1) Deschideți o macrocomandă bazată pe Excel și accesați opțiunea Dezvoltator din Excel.

Pas 2) Selectați opțiunea Visual Basic din panglica Dezvoltator.

Pas 3) Introduceți un modul nou.

Pas 4) Inițializați o nouă subrutină și denumiți-o test2.

Sub test2()
End Sub

Rezultatul în modul ar fi următorul:

Pas 5) Accesați opțiunea Referință din fila Instrumente și consultați Selenium Bibliotecă de tipuri. Această bibliotecă ajută la deschiderea Google Chrome și facilitează scriptarea macrocomenzilor.

Acum fișierul Excel este gata să interacționeze cu browserul. Următorul pas este încorporarea unui script macro care facilitează extragerea datelor.ping în HTML.

Cum se deschide Google Chrome Folosind VBA

Iată pașii pentru a deschide Google Chrome folosind VBA.

Pas 1) Declarați și inițializați variabilele din subrutină așa cum se arată mai jos.

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

Pas 2) A deschide Google Chrome folosind Selenium și VBA, scrieți driver. Lansați „Chrome” și apăsați F5.

Următorul ar fi codul.

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

Modulul ar rezulta astfel:

Cum să deschizi un site web în Google Chrome Folosind VBA

Odată ce puteți accesa Google Chrome folosind VBA, următorul pas este accesarea unui site web folosind VBA. Acest lucru este facilitat de funcția Get, unde URL este transmisă ca ghilimele duble.

Modulul ar arăta astfel:

Apăsați F5 pentru a executa macrocomanda. Următoarea pagină web se va deschide în Google Chrome așa cum se arată.

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

Acum macrocomanda Excel este gata să efectueze scanarea.ping sarcini. Următorul pas arată cum pot fi exprimate informațiiletracaplicat prin aplicarea Selenium și VBA.

Cum să extragi informații de pe un site web folosind VBA

Să presupunem că traderul de o zi dorește să acceseze datele de pe site zilnic. De fiecare dată când traderul de o zi dă clic pe buton, acesta ar trebui să extragă automat datele de piață în Excel.

De pe site-ul web de mai sus, este necesar să inspectați un element și să observați cum sunt structurate datele. Accesați codul sursă HTML de mai jos apăsând Control + Shift +I.

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

După cum puteți vedea, datele sunt structurate ca un singur tabel HTML. Prin urmare, pentru a extrage toate datele din tabelul HTML, trebuie să proiectați o macrocomandă care extrage informațiile din antet și datele corespunzătoare asociate tabelului. Efectuați sarcinile de mai jos.

Pas 1) Formulați o buclă For care parcurge informațiile din antetul HTML ca o colecție. Selenium Driverul localizează informațiile din antet folosind metodele FindElementByClass() și FindElementByTag(), așa cum se arată.

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

Pas 2) Apoi, Selenium driverul localizează datele din tabel folosind o abordare similară. Scrieți următorul cod:

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 poate fi inițializat folosind atributul Range sau atributul Cells al foii de calcul. Pentru a reduce complexitatea scriptului VBA, datele din colecție sunt inițializate cu atributul Cells al foii de calcul 2 din registrul de lucru. Atributul Text ajută la plasarea textului sub o etichetă 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

Modulul VBA ar arăta astfel:

Pas 3) După ce scriptul macro este gata, atribuiți subrutina unui buton Excel și ieșiți din modulul VBA. Etichetați butonul ca Refresh sau orice alt nume potrivit. Pentru acest exemplu, butonul este etichetat Refresh.

Pas 4) Apăsați butonul Refresh pentru a obține rezultatul de mai jos.

Pas 5) Comparați rezultatele din Excel cu rezultatele din Google Chrome.

Întrebări frecvente