Bonjour,
J'essaye de lire la page web suivante:
https://finalfantasy.fandom.com/wiki...al_Fantasy_VI)
En particulier, obtenir les données dans le pavé "Stats".
J'ai écrit le code suivant:
Malheureusement, l'objet Node reste éternellement à Nothing.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Public Sub RetrieveData() On Error GoTo Error Const Url As String = "https://finalfantasy.fandom.com/wiki/Wererat_(Final_Fantasy_VI)" Dim Ie As SHDocVw.InternetExplorer Set Ie = New SHDocVw.InternetExplorer Ie.Visible = True Ie.Navigate2 Url While Ie.readyState <> READYSTATE_COMPLETE DoEvents Wend Dim Document As MSHTML.HTMLDocument Set Document = Ie.Document Dim Nodes As MSHTML.IHTMLDOMChildrenCollection '// Recherche du niveau (level) Set Nodes = Document.querySelectorAll("#mw-content-text > div.mw-parser-output > div:nth-child(10) > aside > section:nth-child(1) > div > section:nth-child(1) > section:nth-child(2) > section.pi-smart-group-body.pi-border-color > div:nth-child(1)") Dim Node As MSHTML.HTMLHtmlElement Set Node = Nodes.Item(0) Ie.Quit Exit Sub Resume Error: Stop Ie.Quit End Sub
Notes:
J'ai obtenu le selecteur CSS à donner à la méthode querySelectorAll via l'outil de développement de MS Edge.
Partager