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

Sisällysluettelo

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 kirjautumista, 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ä voimme käyttää verkkosivuja ja saada tietoja näiltä 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?

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 viitteen Internet Exploreriin, emme näe "Internet Exploreria", koska 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. Jos haluat antaa 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

Step 9: As you can see above “Navigation” method asking which URL to be navigated in internet explorer. Now I need to open the website “Wallstreetnmojo,” and I can give the URL address as follows. “https://www.wallstreetmojo.com/”

Code:

Sub Web_Scraping() Dim Internet_Explorer As InternetExplorer Set Internet_Explorer = New InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") End Sub

Now run the code, we should see the mentioned web address page in internet explorer.

Here we have a problem that once the web page is opened, our code needs to wait until the page web page fully opened.

Step 10: We need to use the “Do While” loop in VBA to actually wait for our code to go any further until the mentioned page is fully loaded.

So, add below the “Do While” loop to force the macro to wait until the mentioned web page comes to the “Ready State Complete” mode.

Code:

Sub Web_Scraping() Dim Internet_Explorer As InternetExplorer Set Internet_Explorer = New InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") Do While Internet_Explorer.ReadyState READYSTATE_COMPLETE: Loop End Sub

Step 11: Now, let’s try to get information about the website in a single line. To get the information about the mentioned web address information, we need to use the “Location Name” property.

Code:

Sub Web_Scraping() Dim Internet_Explorer As InternetExplorer Set Internet_Explorer = New InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") Do While Internet_Explorer.ReadyState READYSTATE_COMPLETE: Loop MsgBox Internet_Explorer.LocationName End Sub

Run the code, and in the message box, we would get the information about the website.

Step 12: Now, at the bottom, we can also print website addresses as well.

Code:

Sub-Web_Scraping () Hämärä Internet_Explorer InternetExplorerina Aseta Internet_Explorer = Uusi InternetExplorer Internet_Explorer.Visible = Todellinen Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") Tee samalla kun Internet_Explorer. & Internet_Explorer.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 Early Binding ja Late Binding. Early Binding -toiminnon avulla voimme nähdä IntelliSense-luettelon, mutta myöhässä sidonnalla emme voi nähdä IntelliSense-luetteloa ollenkaan.

Mielenkiintoisia artikkeleita...