VBA Web Scraping exceller

Qu'est-ce que le Data Scrap ?ping?

Data scraping est la technique qui aide extracextraire les informations souhaitées d'une page web HTML et les enregistrer dans un fichier local sur votre ordinateur. Ce fichier local est généralement un fichier Excel, un fichier Word ou tout autre type de fichier. Microsoft Application bureautique. Elle permet de centraliser les informations essentielles provenant de la page web.

Data scraping Cela devient précieux dans le cadre d'un projet de recherche qui dépend quotidiennement d'Internet. Prenons l'exemple d'un trader qui utilise une macro Excel pour extraire des informations de marché d'un site web financier et les importer dans une feuille Excel grâce à VBA.

Comment préparer la macro Excel avant l'extraction de donnéesping (Internet Explorer)

Certaines opérations préalables doivent être effectuées sur le fichier macro Excel avant de démarrer l'extraction de données.ping processus.

Les conditions préalables sont les suivantes :

Étape 1) Ouvrez une macro Excel et accédez à l'option Développeur d'Excel.

Étape 2) Sélectionnez l'option Visual Basic sous l'onglet Développeur.

Étape 3) Insérez un nouveau module.

Étape 4) Initialiser une nouvelle sous-routine.

Sub test()
End Sub

Le module donnerait le résultat suivant :

Étape 5) Accédez à l'option Référence sous l'onglet Outils et consultez la référence Microsoft Bibliothèque d'objets HTML et Microsoft Contrôles Internet.

Les fichiers suivants doivent être référencés dans le module, car ils permettent d'ouvrir Internet Explorer et facilitent la création de scripts macro.

Le fichier Excel est maintenant prêt à interagir avec Internet Explorer. L'étape suivante consiste à intégrer des macros qui facilitent l'extraction de données.ping en HTML.

Comment ouvrir Internet Explorer avec Excel VBA

Étape 1) Initialisez la variable dans la sous-routine comme indiqué ci-dessous.

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

Étape 2) Pour ouvrir Internet Explorer à l'aide de VBA, saisissez ie.Visible = True et appuyez sur F5.

Sub test()
Dim ie As New InternetExplorer 
Dim doc As New HTMLDocument
ie.Visible = True

Le module se présenterait comme suit :

Comment ouvrir un site web dans Internet Explorer en utilisant VBA

Voici les étapes à suivre pour ouvrir un site web dans Internet Explorer en utilisant VBA.

Étape 1) Une fois que vous pouvez accéder à Internet Explorer à l'aide d'Excel VBA, l'étape suivante consiste à accéder à un site web à l'aide de VBA. Ceci est facilité par l'attribut Navigate, où le URL est transmis entre guillemets doubles. Suivez les étapes indiquées.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE

Étape 2) Appuyez sur F5 pour exécuter la macro. La page Web suivante s'ouvrira comme indiqué.

La macro Excel est maintenant prête à exécuter le processus.ping fonctions. L'étape suivante montre comment l'information peut être extracmodifié depuis Internet Explorer à l'aide de VBA.

Comment extraire des informations d'un site web à l'aide de VBA

Supposons qu'un trader souhaite accéder quotidiennement aux données du site web. À chaque clic sur le bouton, les données de marché devraient être automatiquement importées dans Excel.

Sur le site web mentionné ci-dessus, il est nécessaire d'examiner un élément et d'observer comment les données sont structurées.

Étape 1) Accédez au code source HTML ci-dessous en appuyant sur Ctrl + Shift + Je.

<table class="datatable">
<thead>
<tr>
<th>Company</th>
<th>Group</th>
<th>Pre Close (Rs)</th>
<th>Current Price (Rs)</th>
<th>% Change</th>
</tr>

Le code source serait le suivant :

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document

Comme vous pouvez le constater, les données sont structurées sous forme d'un tableau HTML unique. Par conséquent, pour extraire l'ensemble des données de ce tableau, vous devez concevoir une macro qui collecte les données sous forme de collection.

La collection est ensuite collée dans Excel. Pour obtenir les résultats souhaités, suivez les étapes ci-dessous.

Étape 2) Initialisez le document HTML dans la sous-routine.

Étape 3) Initialisez l'élément de collection présent dans le document HTML.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set ecoll = doc.getElementsByTagName("table")

Étape 4) Initialisez les cellules de la feuille Excel à l'aide d'une boucle imbriquée comme indiqué.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object

ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set ecoll = doc.getElementsByTagName("table")

Excel peut être initialisé à l'aide de l'attribut Range ou de l'attribut Cells de la feuille. Afin de simplifier le script VBA, les données de la collection sont initialisées dans l'attribut Cells de la Feuille 1 du classeur.

Une fois le script macro prêt, associez la sous-routine à un bouton Excel et quittez le module VBA. Nommez le bouton « Actualiser » ou tout autre nom approprié. Dans cet exemple, le bouton s’appelle simplement « Actualiser ».

Étape 5) Appuyez sur le bouton Actualiser pour obtenir le résultat ci-dessous.

Étape 6) Comparez les résultats obtenus dans Excel avec ceux obtenus dans Internet Explorer.

FAQ