Text aus einer Website mit Chrome und Selenium in eine Exceltabelle kopieren
13.11.2020 12:56:54
Chris
ich bräuchte von euch erneut etwas hilfe.
Ich möchte gerne von einer Website den Text, so als wenn die Website als txt Datei gespeichert wäre, in Excel einfügen.
Dazu habe ich dieses Macro im Netz gefunden:
Sub Copy()
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "www.google.de/"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
zeile = 1
For Each teil In Split(IEDocument.body.innertext, vbCrLf)
Tabelle1.Cells(zeile, 1).FormulaR1C1 = teil
zeile = zeile + 1
Next
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub
Er funktioniert super und so wie ich es mir vorgestellt habe.
Jetzt kommt mein Anliegen.
Dieses Macro funktioniert nur mit dem Internet Explorer.
Ich möchte aber den Chrome Browser dafür nutzen.
Ich habe mir dafür schon SeleniumBasic 2.0.2 runtergeladen, den passenden Chrome Treiber instaliert und die Schnittstelle zu Excel hergestellt.
Mit diesem Test Macro habe ich Chrome gestartet, einen Link zugesendet und mit erfolg geschlossen:
Sub Test()
Dim driver As New CromeDriver
driver.Get "google.de"
driver.Quit
End Sub
Was muss ich im oberen Macro ändern, damit nicht der IE angesprochen wird sondern Chrome?
Gruß
Chris