Web abfrage mit Schleife

Sub automaticformfilling() Dim IE As Object Set IE = CreateObject("internetexplorer.application") With IE .Visible = True .Navigate "http://google.de" Do While .busy DoEvents Loop Do While .ReadyState 4 DoEvents Loop Set searchtext = .document.getelementbyid("lst-ib") searchtext.Value = ThisWorkbook.Sheets(1).Range("A1") .document.forms(0).submit Do While .busy DoEvents Loop Do While .ReadyState 4 DoEvents Loop Set searchres = .document.getelementbyid("resultStats") ThisWorkbook.Sheets(1).Range("B1") = searchres.innertext .Quit End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Zwenn,
danke für deine Antwort, kann ich leider nicht machen bzw. auch wenn ich dir den link sagen würde, kannst du die Seite nicht erreichen (VPN). Es handelt sich um Messwerte, die man aber nur mit einer Nummer über einen Eingabefeld (ID) bekommt. Eine Query über die URL ist auch nicht möglich da sie statisch ist! Wie gesagt die IDs kann ich dann selber anpassen, ich check es nur nicht wie ich diesen code ändern muss. Ich denke für die Zellen muss man eine Variable definieren, einen Loop erstellen und den Wert der Tabelle immer um eins erhöhen. Ich gebe zb. Eine Nummer 255154811 ein und bekomme einen Wert von 0,42, der dann rechts neben der Nummer A ist der Tabelle B1 bis Bxxx gespeichert werden soll.
Viele Grüße,
GerSCh

Hallo GerSCh,
mit Google hast Du Dir eine ziemlich blöde Seite für den Test ausgesucht ;-) Es wird eine Zeile mit Application.Wait ... benötigt. Kommt eher selten vor. Meistens reicht einmal Do While IE.ReadyState 4: DoEvents: Loop. Zusätzlich ist Google eine der Seiten, die es gar nicht mögen, wenn man automatisiert darauf zugreift. Das untenstehende Makro hat 35 Abrufe geschafft, dann wollte Google wissen, ob ich ein Roboter bin ;-) Die sind da echt hart. War schon früher so. Selbst Ebay hat das inzwischen aufgegeben und da gingen früher schon etwa 400 Zugriffe am Stück, bevor man 10 Minuten Pause machen musste.
Wie auch immer. Prinzipiell funktioniert das mit einer For-Schleife so:
(Ich wollte auch eine Do ... Loop Version anbieten, kann die nun aber nicht mehr testen, bis Google mich wieder freigibt)

Option Explicit


Sub AutomaticFormFilling()
Dim IE As Object
Dim searchText As Object
Dim searchRes As Object
Dim i As Long
For i = 2 To Sheets(1).UsedRange.Rows.Count
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.Navigate "http://google.de"
Do While IE.ReadyState  4: DoEvents: Loop
Set searchText = IE.document.getElementByID("lst-ib")
searchText.Value = ThisWorkbook.Sheets(1).Range("A" & i)
IE.document.forms(0).submit
Application.Wait (Now + TimeSerial(0, 0, 2))
Do While IE.ReadyState  4: DoEvents: Loop
Set searchRes = IE.document.getElementByID("resultStats")
ThisWorkbook.Sheets(1).Range("B" & i) = searchRes.innertext
IE.Quit
Set IE = Nothing
Next i
End Sub

Benutze bei Deinen Makros unbedingt immer Option Explicit ganz oben im Modul. Bei Dir waren zwei Variablen nicht deklariert. Das ist sehr unschön. In längeren Codes ist es ausserdem sehr fehlerträchtig, auf die zwingende Variablen Deklaration zu verzichten.
Achja, statt z.B.

ThisWorkbook.Sheets(1).Range("A" & i)

kannst Du auch schreiben

ThisWorkbook.Sheets(1).Cells(i, 1)

Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread