VBA-verkon kaavinta | Kuinka romuttaa verkkosivustoja Excel VBA: n avulla?

Excel VBA -versio

VBA Web Scraping on tekniikka, jolla pääset verkkosivuille ja lataat tiedot kyseiseltä verkkosivustolta tietokonetiedostoihimme. Verkon kaavinta on mahdollista käyttämällä ulkoisia sovelluksia, kuten Internet Explorer. Voimme tehdä sen kahdella tavalla, eli varhainen sitova ja myöhäinen sitova.

Verkon kaavinta VBA: lla tarkoittaa, että kun käytämme VBA: ta tietojen hakemiseen muista verkon lähteistä, tämä saattaa edellyttää tietolähteiden sisäänkirjautumista, mutta ensin meidän on sallittava viitteet työkalut-osiosta Microsoftin HTML-kirjaston VBA-editori, jotta pääset verkkoon VBA: lta.

Monet meistä eivät tiedä, että Excelistä pääsemme verkkosivuille ja saamme tietoja noilta verkkosivuilta. Kyllä, kuulit sen oikein. voimme selata verkkosivuja, käyttää selaussovelluksia ja monia muita. Tässä artikkelissa näytämme sinulle, miten Excelin VBA-koodi kirjoitetaan verkkosivuille.

Yleensä avaamme verkkosivut, kopioimme tiedot ja liitämme ne tiedostoihimme, kuten excel-, word- tai muihin tiedostoihin. Mutta tässä artikkelissa näytämme sinulle, kuinka pääset verkkosivustoille Excelistä ja tekemään monia muita asioita.

Kuinka romuttaa verkkosivustotietoja VBA: n avulla?

Voit ladata tämän VBA Web Scraping Excel -mallin täältä - VBA Web Scraping Excel Template

Kun haluamme käyttää muita sovelluksia excelistä, voimme tehdä tämän tavoilla, esim. "Early Binding" ja "Late Binding". Aloitteluvaiheessa on aina turvallista käyttää ”Early Binding” -tekniikkaa.

Verkkosivustolle pääsemiseksi tarvitsemme selaussovelluksia, esimerkiksi " Internet Explorer ". Koska se on ulkoinen objekti, meidän on ensin asetettava viite.

Noudata alla olevia ohjeita romuttamiseksi.

Vaihe 1: Määritä VBA-muuttuja ja määritä tietotyypiksi Internet Explorer .

Koodi:

 Sub Web_Scraping () Dim Internet_Explorer Internet End Sub 

Kuten yllä voit nähdä, kun yritämme asettaa viittauksen Internet Exploreriin, emme näe "Internet Exploreria", tämä johtuu siitä, että "Internet Explorer" on ulkoinen objekti, joten meidän on asetettava viite.

Vaihe 2: Aseta viite siirtymällä kohtaan " Työkalut " ja valitsemalla " Viitteet ".

Vieritä alla olevassa ikkunassa alaspäin ja valitse " Microsoft Internet Controls ".

Vaihe 3: Valitse Microsoft Internet Controls -valintaruutu ja napsauta OK. Nyt meidän pitäisi nähdä tämä objektin nimi IntelliSense-luettelossa.

Koodi:

 Sub Web_Scraping () Himmennä Internet_Explorer kuten loppu Sub 

Vaihe 4: Valitse InternetExplorer.

Koodi:

 Ali Web_Scraping () Himmennä Internet_Explorer InternetExplorerin lopputukina 

Vaihe 5: Seuraavaksi meidän on asetettava viite Internet Explorerin käyttöönottoa varten. Koska tämä on objektimuuttuja, meidän on käytettävä " Set " -hakusanaa viitteiden asettamiseen.

Koodi:

 Sub Web_Scraping () Himmennä Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer End Sub 

Vaihe 6: Nyt muuttujaa " Internet_Explorer " käyttämällä voimme käyttää Internet Explorerin ominaisuuksia ja menetelmiä.

Syötä muuttujan nimi ja laita piste nähdäksesi IntelliSense-luettelon.

Koodi:

Sub Web_Scraping () Hämärtää Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer. End Sub

Vaihe 7: Jotta voimme tarkastella Internet Explorer -sovellusta, meidän on valittava Visible- ominaisuus ja asetettava tilaksi True .

Koodi:

 Sub Web_Scraping () Himmennä Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = True End Sub 

Suorita nyt koodi ja sinun pitäisi nähdä Internet Explorer avautuvan tietokoneellesi.

Vaihe 8: Koska verkko-osoitetta ei ole mainittu, voimme nähdä vain tyhjän sivun. Antaaksemme verkko-osoitteen Internet Explorerille meidän on käytettävä ” Navigointi ” -menetelmää.

Koodi:

 Sub Web_Scraping () Himmennä Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate (End Sub 

Vaihe 9: Kuten yllä olevasta ”Navigointi” -menetelmästä näet, kysytään, mihin URL-osoitteeseen navigoidaan Internet Explorerissa. Nyt minun on avattava verkkosivusto “ Wallstreetnmojo ” ja voin antaa URL-osoitteen seuraavasti. "//Www.wallstreetmojo.com/"

Koodi:

 Sub Web_Scraping () Himmennä Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("//www.wallstreetmojo.com") Sub Sub 

Suorita nyt koodi, meidän pitäisi nähdä mainittu verkkosivustosivu Internet Explorerissa.

Tässä meillä on ongelma, että kun verkkosivu on avattu, koodimme on odotettava, kunnes sivun verkkosivu avautuu kokonaan.

Vaihe 10: Meidän on käytettävä VBA: n "Do While" -silmukkaa odottaaksemme, että koodimme menee pidemmälle, kunnes mainittu sivu on täysin ladattu.

Joten lisää "Do While" -silmukan alle pakottaaksesi makron odottamaan, kunnes mainittu verkkosivu tulee " Valmiustila valmis " -tilaan.

Koodi:

 Sub Web_Scraping () Hämärtää Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = Todellinen Internet_Explorer.Navigate ("//www.wallstreetmojo.com") Tee samalla kun Internet_Explorer.ReadyState LATAUSASETUS_COMPL 

Vaihe 11: Yritetään nyt saada tietoa verkkosivustosta yhdellä rivillä. Saadaksesi tietoja mainituista verkko-osoitetiedoista, meidän on käytettävä " Location Name " -ominaisuutta.

Koodi:

 Ali Web_Scraping () Hämärtää Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = Todellinen Internet_Explorer.Navigate ("//www.wallstreetmojo.com") Tee, kun Internet_Explorer.ReadyState READYSTATE_COMPLET 

Suorita koodi ja saamme viestikentässä tietoja verkkosivustosta.

Vaihe 12: Nyt alaosassa voimme tulostaa myös verkkosivustojen osoitteet.

Koodi:

 Sub Web_Scraping () Hämärtää Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = Todellinen Internet_Explorer.Navigate ("//www.wallstreetmojo.com") Tee samalla kun Internet_Explorer.ReadyState READYSTATE_COMPLET .LocationURL End Sub 

Nyt tämä kertoo verkkosivuston kuvauksesta ja näyttää myös verkkosivuston osoitteen.

Muistettavaa täällä

  • Verkon kaavinta on mahdollista käyttämällä ulkoisia sovelluksia, kuten Internet Explorer.
  • Voimme tehdä sen kahdella tavalla, eli varhainen sitova ja myöhäinen sitova. Varhaisen sidonnan avulla voimme nähdä IntelliSense-luettelon, mutta myöhässä sidonnalla emme voi nähdä IntelliSense-luetteloa ollenkaan.

$config[zx-auto] not found$config[zx-overlay] not found