Verkon kaavinta VBA: lla

Mitä tietojen kaavinta on?

Tietojen kaavinta on tekniikka, joka auttaa poimimaan halutut tiedot HTML-verkkosivulta paikalliseen koneeseesi sisältyvään paikalliseen tiedostoon. Normaalisti paikallinen tiedosto voi vastata Excel-tiedostoa, Word-tiedostoa tai sanoa mitä tahansa Microsoft Office -sovellusta. Se auttaa kanavoimaan kriittistä tietoa verkkosivulta.

Tiedon kaavinta tulee yksinkertaiseksi, kun työskentelet päivittäin tutkimuspohjaisessa projektissa, ja tällainen projekti on täysin riippuvainen Internetistä ja verkkosivustosta. Valaisemme aihetta tarkemmin ottamalla esimerkin päivittäiskauppiaasta, joka johtaa excel-makroa vetääkseen markkinainformaatiota rahoitussivustolta excel-taulukkoon VBA: n avulla.

Tässä opetusohjelmassa opit:

Mitä tietojen kaavinta on?
Kuinka valmistella Excel-makro ennen tietojen kaavintaa Internet Explorerilla?
Kuinka avata Internet Explorer käyttämällä Excel VBA: ta?
Kuinka avata verkkosivusto Internet Explorerissa VBA: n avulla?
Kuinka kaapata tietoja verkkosivustolta VBA: n avulla?

Kuinka valmistella Excel-makro ennen tietojen kaavintaa Internet Explorerilla?

On olemassa tiettyjä edellytyksiä, jotka on suoritettava Excel-makrotiedostolle, ennen kuin pääset tietojen kaavintaprosessiin Excelissä.

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 alirutiini

Sub test()End sub

Moduuli johtaisi seuraavasti: -

Vaihe 5) Käytä työkaluvälilehden viittausvaihtoehtoa ja viittaa Microsoft HTML Object Library- ja Microsoft Internet -ohjauksiin.

Seuraaviin tiedostoihin on viitattava moduuliin, koska se auttaa avaamaan Internet Explorerin ja helpottaa makrokomentosarjojen kehittämistä.

Nyt Excel-tiedosto on valmis olemaan vuorovaikutuksessa Internet Explorerin kanssa. Seuraava askel olisi sisällyttää makroskriptit, jotka helpottavat tietojen kaapimista HTML-muodossa.

Kuinka avata Internet Explorer käyttämällä Excel VBA: ta?

Vaihe 1) Alusta muuttuja aliohjelmissa alla olevan kuvan mukaisesti

Sub test()Dim ie As New InternetExplorerDim doc As New HTMLDocument

Vaihe 2) Voit avata Internet Explorerin VBA: lla kirjoittamalla ie visible = true ja painamalla F5.

Sub test()Dim ie As New InternetExplorerDim doc As New HTMLDocumentIe.visible=true

Moduuli näyttää seuraavalta: -

Kuinka avata verkkosivusto Internet Explorerissa VBA: n avulla?

Tässä on vaiheet verkkosivuston avaamiseksi Internet exploerissa VBA: n avulla

Vaihe 1) Kun pääset Internet Exploreriin käyttämällä Excel VBA: ta, seuraavaan vaiheeseen sisältyy verkkosivuston käyttö VBA: n avulla. Tämän helpottaa Navigate Attribute, jossa URL-osoitteen on välitettävä kaksoislainausmerkkeinä attribuutissa. Noudata seuraavia ohjeita näytöllä.

Sub test()Dim, ie As New InternetExplorerDim doc As New HTMLDocumentDim ecoll As Objectie.Visible = Trueie.navigate"http://demo.guru99.com/test/web-table-element.php"DoDoEventsLoop Until ie.readyState = READYSTATE_COMPLETE

Vaihe 2) - Suorita makro painamalla F5. Seuraava verkkosivu avautuu näytettynä

Nyt Excel-makro on valmis kaavintatoimintojen suorittamiseen. Seuraava vaihe näyttää, kuinka tiedot voidaan poimia Internet Explorerista VBA: n avulla.

Kuinka kaapata tietoja verkkosivustolta VBA: n avulla?

Oletetaan, että päiväkauppias haluaa käyttää verkkosivuston tietoja päivittäin. Joka kerta, kun elinkeinonharjoittaja painaa napsautuspainiketta, sen pitäisi vetää markkinatiedot automaattisesti Exceliin.

Yllä olevalta verkkosivustolta olisi tarpeen tarkastaa elementti ja tarkkailla tietojen rakennetta.

Vaihe 1) Käytä alla olevaa HTML-lähdekoodia painamalla control + vaihto + I

Lähdekoodi olisi seuraava: -

Sub test()Dim ie As New InternetExplorerDim doc As New HTMLDocumentDim ecoll As Objectie.Visible = Trueie.navigate "http://demo.guru99.com/test/web-table-element.php"DoDoEventsLoop Until ie.readyState = READYSTATE_COMPLETESet doc = ie.document

Kuten voidaan nähdä, että data on strukturoitu yhtenä HTML-taulukkona. Siksi kokonaisen datan vetämiseksi html-taulukosta se edellyttäisi makron suunnittelua, joka kerää tiedot kokoelman muodossa.

Kokoelma liitetään sitten Exceliin. Saavuttamiseksi halutut tulokset suorittavat seuraavat vaiheet: -

Vaihe 2) Alusta HTML-asiakirja alirutiinissa

VBA-moduuli näyttäisi seuraavalta: -

Vaihe 3) Alusta HTML-asiakirjassa oleva kokoelementti

VBA-moduuli näyttäisi seuraavalta: -

Sub test()Dim ie As New InternetExplorerDim doc As New HTMLDocumentDim ecoll As Objectie.Visible = Trueie.navigate "http://demo.guru99.com/test/web-table-element.php"DoDoEventsLoop Until ie.readyState = READYSTATE_COMPLETESet doc = ie.documentSet ecoll = doc.getElementsByTagName("table")

Vaihe 4) Alusta Excel-taulukon solut sisäkkäisen silmukan avulla kuvan osoittamalla tavalla

VBA-moduuli näyttäisi seuraavalta: -

Sub test()Dim ie As New InternetExplorerDim doc As New HTMLDocumentDim ecoll As Objectie.Visible = Trueie.navigate "http://demo.guru99.com/test/web-table-element.php"DoDoEventsLoop Until ie.readyState = READYSTATE_COMPLETESet doc = ie.documentSet ecoll = doc.getElementsByTagName("table")

Excel voidaan alustaa käyttämällä Excel-taulukon alue-attribuuttia tai Excel-taulukon solujen attribuuttia. VBA-komentosarjan monimutkaisuuden vähentämiseksi kokoelmatiedot alustetaan työkirjassa olevan taulukon 1 Excel-solujen määritteeseen.

Kun makrokomentosarja on valmis, välitä ja määritä aliohjelma excel-painikkeeseen ja poistu VBA-moduulista. Merkitse painike päivityksenä tai sopivana nimenä, joka siihen voidaan alustaa. Tässä esimerkissä painike alustetaan päivityksenä.

Vaihe 5) Paina päivityspainiketta saadaksesi alla mainitun tuloksen

Vaihe 6) Vertaa Excelin tuloksia Internet Explorerin tuloksiin

Yhteenveto:

Tietojen kaavinta antaa käyttäjälle mahdollisuuden kaapata vain käyttäjän haluamat tiedot.
Kaavinta voidaan suorittaa Internet Explorerilla.
Kaavinta tapahtuu hitaammin Internet Explorerin tapauksessa; se toimittaa kuitenkin halutut tulokset käyttäjälle.
Kaavinta tulee suorittaa ehdottomasti varoen ja varovasti, koska se voi vahingoittaa kaavinta varten käytettyä järjestelmää.