Excel VBA spletno strganje
Spletno strganje VBA je tehnika dostopa do spletnih strani in prenosa podatkov s tega spletnega mesta v naše računalniške datoteke. Spletno strganje je mogoče z dostopom do zunanjih aplikacij, kot je Internet Explorer. To lahko storimo na dva načina, tj. Zgodnja vezava in pozna vezava.
Spletno strganje z VBA pomeni, da kadar uporabljamo VBA za pridobivanje podatkov iz drugih spletnih virov, bo to morda zahtevalo prijavo za vire podatkov, vendar moramo najprej omogočiti sklice iz razdelka o orodjih v urejevalnik VBA za knjižnico Microsoft HTML za dostop do spleta iz VBA.
Redki med nami vedo, da lahko z excela dostopamo do spletnih strani in pridobimo podatke s teh spletnih strani. Da, prav ste slišali. lahko brskamo po spletnih straneh, dostopamo do brskalnih aplikacij in še veliko več. V tem članku vam bomo pokazali, kako podrobno napišete kodo VBA za spletno strganje.
Običajno odpremo spletne strani, kopiramo podatke in jih prilepimo v svoje datoteke, kot so excel, word ali nekatere druge datoteke. Toda v tem članku vam bomo pokazali, kako dostopati do spletnih mest iz Excela in delati številne druge stvari.
Kako odstraniti podatke o spletnih mestih z uporabo VBA?
Ko želimo iz Excela dostopati do drugih aplikacij, lahko to storimo na različne načine, npr. »Early Binding« in »Late Binding«. Na začetni stopnji je vedno varno uporabljati tehniko "zgodnje vezave".
Za dostop do spletnega mesta potrebujemo brskanje po aplikacijah, na primer » Internet Explorer «. Ker gre za zunanji objekt, moramo najprej nastaviti referenco.
Sledite spodnjim korakom za spletni zapis.
1. korak: Določite spremenljivko VBA in določite vrsto podatkov kot » Internet Explorer «.
Koda:
Sub Web_Scraping () Dim Internet_Explorer Kot internet End Sub
Kot lahko vidite zgoraj, ko poskušamo referenco nastaviti na Internet Explorer, »Internet Explorer« ne vidimo, ker je »Internet Explorer« zunanji objekt, zato moramo referenco nastaviti.
2. korak: Če želite nastaviti referenco, pojdite na » Orodja « in izberite » Reference «.
V spodnjem oknu se pomaknite navzdol in izberite » Microsoft Internet Controls «.
3. korak: Potrdite polje »Microsoft Internet Controls« in kliknite V redu. Zdaj bi morali to ime predmeta videti na seznamu IntelliSense.
Koda:
Sub Web_Scraping () Dim Internet_Explorer Kot inter End Sub
4. korak: Izberite »InternetExplorer.«
Koda:
Sub Web_Scraping () Dim Internet_Explorer Kot InternetExplorer Konec Sub
5. korak: Nato moramo nastaviti referenco, da omogočimo Internet Explorer. Ker gre za objektno spremenljivko, moramo za nastavitev referenc uporabiti ključno besedo " Set ".
Koda:
Sub Web_Scraping () Dim Internet_Explorer kot InternetExplorer Set Internet_Explorer = Nov InternetExplorer End Sub
6. korak: Zdaj lahko s spremenljivko " Internet_Explorer " uporabimo lastnosti in metode Internet Explorerja.
Vnesite ime spremenljivke in postavite piko, da se prikaže seznam IntelliSense.
Koda:
Sub Web_Scraping () Zatemni Internet_Explorer kot InternetExplorer Nastavi Internet_Explorer = Nov InternetExplorer Internet_Explorer. Končaj pod
7. korak: Zdaj, da si lahko ogledamo aplikacijo Internet Explorer, moramo izbrati lastnost » Visible « in status nastaviti kot » True «.
Koda:
Sub Web_Scraping () Dim Internet_Explorer kot InternetExplorer Nastavi Internet_Explorer = Nov InternetExplorer Internet_Explorer.Visible = True End Sub
Zdaj zaženite kodo in videli boste, da se v računalniku odpre Internet Explorer .
8. korak: Ker ni bil omenjen noben spletni naslov, lahko vidimo samo prazno stran. Če želimo dati spletni naslov raziskovalcu interneta, moramo uporabiti metodo » Navigacija «.
Koda:
Sub Web_Scraping () Dim Internet_Explorer kot InternetExplorer Nastavi Internet_Explorer = Nov InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate (End Sub
Korak 9: Kot lahko vidite zgoraj "Navigacijska" metoda, ki sprašuje, kateri URL naj se krmili v Internet Explorerju. Zdaj moram odpreti spletno mesto " Wallstreetnmojo " in naslov URL lahko navedem na naslednji način. “Https://www.wallstreetmojo.com/”
Koda:
Sub Web_Scraping () Dim Internet_Explorer Kot InternetExplorer Nastavi Internet_Explorer = Nov InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") End Sub
Zdaj zaženite kodo, v Internet Explorerju bi morali videti omenjeno spletno stran.
Tukaj imamo težavo, da ko se spletna stran odpre, mora naša koda počakati, da se spletna stran popolnoma odpre.
10. korak: V zanki VBA moramo uporabiti zanko »Do While«, da dejansko počakamo, da gre naša koda naprej, dokler se omenjena stran ne naloži v celoti.
Torej, pod spodnjo zanko dodajte, da prisili makro, da počaka, dokler omenjena spletna stran ne pride v način » Ready State Complete «.
Koda:
Sub Web_Scraping () Dim Internet_Explorer kot InternetExplorer Nastavite Internet_Explorer = Nov InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") Do While Internet_Explorer.ReadyState READYSTATE_COPPLETE
11. korak: Poskusimo zdaj dobiti informacije o spletnem mestu v eni vrstici. Za pridobitev informacij o omenjenih informacijah o spletnem naslovu moramo uporabiti lastnost » Ime lokacije «.
Koda:
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 () Dim Internet_Explorer kot InternetExplorer Nastavite Internet_Explorer = New InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") Do Internet_Explorer.ReadyState READYSTATE_COMPLETgLebLineLineLineLineLineLineLoneLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLoneLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLineLove & Internet_Explorer.LocationURL End Sub
Zdaj bo to povedalo o opisu spletnega mesta in bo prikazalo tudi naslov spletnega mesta.
Tukaj si je treba zapomniti
- Spletno strganje je mogoče z dostopom do zunanjih aplikacij, kot je Internet Explorer.
- To lahko storimo na dva načina, tj. Early Binding & Late Binding. Z zgodnjo vezavo lahko vidimo seznam IntelliSense, s pozno vezavo pa seznama IntelliSense sploh ne moremo.
