Per VBA Daten von Website abgreifen
05.05.2017 07:58:01
Website
ich versuche mich vermehrt in die Steuerung / Auslesung von Daten aus dem Internet Explorer mithilfe von VBA einzuarbeiten.
Dabei habe ich bislang folgenden Code erstellt, welcher auf Google.de navigieren, dann ein Suchbegriff hinterlegen(der in Zelle "B4" steht) und die Anzahl der Suchtreffer ausgeben soll (in Zelle "A1").
Leider bekomme ich bei der Ausführung hin und wieder (nicht immer) den Laufzeitfehler 13 "Typen unverträglich". Das Problem scheint an der variable "searchres" zu liegen, welche ich als Variant deklariert habe.
hier Code:
Option Explicit
Sub ietest()
Dim ie As Object
Dim searchtxt As Object
Dim searchres As Variant
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate "https://www.google.de"
Do While .Busy
DoEvents
Loop
Do While .readyState 4
DoEvents
Loop
Set searchtxt = .document.getElementById("lst-ib")
searchtxt.Value = ThisWorkbook.Sheets(1).Range("B4")
.document.forms(0).submit
Do While .Busy
DoEvents
Loop
Do While .readyState 4
DoEvents
Loop
Set searchres = .document.getElementById("resultStats")
ThisWorkbook.Sheets(1).Range("A1") = searchres.innerText
.Quit
End With
End Sub
Kann mir jemand bitte helfen?Vielen Dank im Voraus.
Viele Grüße
Marco