Excel VBA webkaparás
A VBA Web Scraping a weboldalak elérésének és az adott webhelyről származó adatok számítógépes fájljainkba való letöltésének technikája. A webes kaparás külső alkalmazások, például az Internet Explorer elérésével lehetséges. Kétféleképpen tehetjük meg: korai kötés és késői kötés.
A webes adatgyűjtés a VBA-val azt jelenti, hogy amikor a VBA-t használjuk az adatok lekérésére a web más forrásaiból, ehhez szükség lehet bejelentkezésre az adatforrásokhoz, de először ehhez engedélyeznünk kell a hivatkozásokat az a Microsoft HTML könyvtár VBA szerkesztője annak érdekében, hogy a VBA-ból hozzáférhessen az internethez.
Közülünk nem sokan tudják, hogy az excel segítségével elérhetjük a weboldalakat és megszerezhetjük az ezekről a weboldalakról származó adatokat. Igen, jól hallottad. lapozhatjuk a weboldalakat, elérhetjük a böngésző alkalmazásokat és még sok minden mást. Ebben a cikkben megmutatjuk, hogyan kell részletesen írni egy excel VBA kódot a webes kaparáshoz.
Általában megnyitjuk a weboldalakat, átmásoljuk az adatokat, és beillesztjük a fájljainkba, például az Excel, a Word vagy más fájlokba. De ebben a cikkben megmutatjuk, hogyan lehet webhelyeket elérni az excel segítségével, és sok más dolgot csinálni.
Hogyan lehet selejtezni a webhely adatait a VBA használatával?
Amikor bármilyen más alkalmazást szeretnénk elérni az Excelből, ezt megtehetjük például „Korai kötés” és „Késői kötés” módokon. A kezdő szakaszban mindig biztonságos az „Early Binding” technika alkalmazása.
A weboldal eléréséhez böngésző alkalmazásokra van szükségünk, például az „ Internet Explorer ” -re. Mivel ez egy külső objektum, először meg kell adnunk a referenciát.
Kövesse az alábbi lépéseket a webes selejtezéshez.
1. lépés: Határozza meg a VBA változót, és rendelje hozzá az adattípust „ Internet Explorer ” néven.
Kód:
Sub Web_Scraping () Dim Internet_Explorer, mint Internet End Sub
Amint a fentiekből is látszik, amikor megpróbáljuk beállítani az Internet Explorer hivatkozását, nem látjuk az „Internet Explorert”, mert az „Internet Explorer” egy külső objektum, ezért meg kell adnunk a referenciát.
2. lépés: A referencia beállításához lépjen az „ Eszközök ” oldalra, és válassza a „ Referenciák ” lehetőséget.
Az alábbi ablakban görgessen lefelé, és válassza a „ Microsoft Internet Controls ” lehetőséget.
3. lépés: Jelölje be a „Microsoft Internet Controls” jelölőnégyzetet, és kattintson az OK gombra. Most ezt az objektumnevet kell látnunk az IntelliSense listában.
Kód:
Sub Web_Scraping () Dim Internet_Explorer As Inter End Sub
4. lépés: Válassza az „InternetExplorer” lehetőséget.
Kód:
Sub Web_Scraping () Dim Internet_Explorer, mint InternetExplorer End Sub
5. lépés: Ezután meg kell adnunk a referenciát az Internet Explorer engedélyezéséhez. Mivel ez egy objektumváltozó, a referenciák megadásához a „ Set ” kulcsszót kell használnunk .
Kód:
Sub Web_Scraping () Dim Internet_Explorer InternetExplorerként állítsa be Internet_Explorer = Új InternetExplorer End Sub
6. lépés: Most az „ Internet_Explorer ” változóval használhatjuk az Internet Explorer tulajdonságait és módszereit.
Írja be a változó nevét, és tegyen egy pontot az IntelliSense lista megtekintéséhez.
Kód:
Sub Web_Scraping () Dim Internet_Explorer, mint InternetExplorer Állítsa be az Internet_Explorer = Új InternetExplorer Internet_Explorer beállítást. End Sub
7. lépés: Most, hogy megtekinthessük az Internet Explorer alkalmazást, ki kell választanunk a „ Látható ” tulajdonságot, és az „ Igaz ” állapotot kell beállítanunk .
Kód:
Sub Web_Scraping () Dim Internet_Explorer InternetExplorerként állítsa be Internet_Explorer = Új InternetExplorer Internet_Explorer.Visible = True End Sub
Most futtassa a kódot, és látnia kell, hogy az Internet Explorer megnyílik a számítógépén.
8. lépés: Mivel nem említettünk webcímet, csak egy üres oldalt láthatunk. Ahhoz, hogy a webcímet megadjuk az Internet Explorer számára, a „ Navigáció ” módszert kell használnunk.
Kód:
Sub Web_Scraping () Dim Internet_Explorer InternetExplorerként állítsa be Internet_Explorer = Új 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 () Dim Internet_Explorer InternetExplorer beállítása Internet_Explorer = Új InternetExplorer Internet_Explorer.Visible = True Internet_Explorer.Navigate ("https://www.wallstreetmojo.com") művelet közben Internet_Explorer.ReadyState & Internet_Explorer.LocationURL End Sub
Ez most elmondja a webhely leírását, és megmutatja a webhely címét is.
Emlékezetes dolgok itt
- A webes kaparás külső alkalmazások, például az Internet Explorer elérésével lehetséges.
- Kétféleképpen tehetjük meg: korai kötés és késői kötés. A Early Binding segítségével láthatjuk az IntelliSense listát, de késői kötéssel egyáltalán nem láthatjuk az IntelliSense listát.
