Office: Webabfrage warten bis Seite geladen

Faultier_1982 · 14. Mai 2014

Hallo
Ich habe eine Internetabfrage, in der ich in ein Suchfeld einen Eintrag machen und dann mit - SendKeys "{ENTER}" - die suche Starte.

Code:

appIE.Navigate "ARIVA.DE: Aktien & Börsenkurse online"

'------------------ wählt Textfeld aus z.B. für Anmeldung ----------------

Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Document.ReadyState = "complete" 'wartet, bis Internetseite voll geladen ist

appIE.Document.all("searchname").innertext = ThisWorkbook.Sheets("Tabelle1").Cells(12, 9) 'id bezeichnung = "lg" des Textfelden im HTML-Quellcode

appIE.Document.all("searchname").Select

SendKeys "{ENTER}" 'drückt die Enter-Taste für den Login
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nachdem die gesuchte Seite geladen ist, will ich die aktuelle URL' auslesen. Leider funktionieren nach dem - SendKeys "{ENTER}" - die beiden Codes die ich habe nicht, um das Makro anhalten, bis die Internetseite komplett geladen ist.

Code:

Do While appIE.ReadyState 4 'wartet, bis Internetseite voll geladen ist
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und
Code:

Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Document.ReadyState = "complete" 'wartet, bis Internetseite voll geladen ist
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

deshalb arbeite ich an dieser Stelle bis jetzt immer mit - Application.Wait - das kostet mir aber Zeit. Wie kann ich an dieser Stelle eine Wartefunktion einbauen, das nur so lange gewartet wird, bis die Seite komplett geladen ist.

Hat mir jemand eine Idee??

gruß

:)

Nepumuk · 16. Mai 2014

Hallo,

deine Schleifen belasten den Prozessor ziemlich, das könnte auch das laden der Seite beeinflussen. Ich würde die so schreiben (Beispiel):

Code:

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Public Sub Test()

Dim appIE As Object

Set appIE = CreateObject("Internetexplorer.Application")

With appIE

.Visible = True

.Navigate "ARIVA.DE: Aktien & Börsenkurse online"

Do While .Busy
DoEvents
Call Sleep(100)
Loop

Do Until .Document.ReadyState = "complete"
DoEvents
Call Sleep(100)
Loop

End With

'weiterer Code

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Faultier_1982 · 17. Mai 2014

cool vielen Dank

Office: Webabfrage warten bis Seite geladen

Webabfrage warten bis Seite geladen

Webabfrage warten bis Seite geladen

Webabfrage warten bis Seite geladen - Similar Threads - Webabfrage warten geladen

WEB-Abfrage

Webabfrage mit SingleSignon

Webabfrage (Tabelle) mit Login und Filter möglich?

Webabfrage verwendet falsches Website-Format

Excel Webabfrage ?

dynamische Webabfrage über Hyperlink in Zelle

Webabfrage automatisch speichern?