Recherche internet sur Edge/Chrome via VBA
Bonjour,
Je souhaite passer un programme VBA qui faisait des recherches sur Internet Explorer en un programme VBA qui fait ces mêmes recherches sur Edge/Chrome sans utiliser de package supplémentaire (notamment pas selenium) puisque je suis en entreprise. J'ai lu sur https://www.codeproject.com/Tips/530...Edge-using-VBA que cela est possible en utilisant le Chrome Devtools Protocole. Cependant lorsque je teste le code sur ce site, j'ai évidemment une erreur sur la classe "clsEdge" qui n'est pas défini. Que dois-je faire pour que le code ci-dessous fonctionne? Y a-t-il une option à activer? Un package à télécharger? Pourriez-vous m'orienter vers les bonnes ressources pour pouvoir programmer cela? Je vous remercie par avance!
Code:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| 'This is an example of how to use the classes
Sub runedge()
* * 'Start Browser
* * Dim objBrowser As clsEdge
* * Set objBrowser = New clsEdge
* * Call objBrowser.start
* **
* * 'Attach to any ("") or a specific page
* * Call objBrowser.attach("")
* **
* * 'navigate
* * Call objBrowser.navigate("https://google.de")
* **
* * Call objBrowser.waitCompletion
* **
* * 'evaluate javascript
* * Call objBrowser.jsEval("alert(""hi"")")
* **
* * 'fill search form (textbox is named q)
* * Call objBrowser.jsEval("document.getElementsByName(""q"")[0].value=""automate edge vba""")
* **
* * 'run search
* * Call objBrowser.jsEval("document.getElementsByName(""q"")[0].form.submit()")
* **
* * 'wait till search has finished
* * Call objBrowser.waitCompletion
* **
* * 'click on codeproject link
* * Call objBrowser.jsEval("document.evaluate("".//h3[text()='Automate Chrome / Edge using VBA - CodeProject']"", document).iterateNext().click()")
* **
* * Call objBrowser.waitCompletion
* **
* * Dim strVotes As String
'if a javascript expression evaluates to a plain type it is passed back to VBA
* * strVotes = objBrowser.jsEval("ctl00_RateArticle_VountCountHist.innerText")
* **
* * MsgBox ("finish! Vote count is " & strVotes)
* **
* * objBrowser.closeBrowser
End Sub |
