Hey Leute,
ich hänge jetzt schon seit gestern morgen an folgendem Problem. Ich hoffe ihr könnt mir weiterhelfen - wahrs bin ich einfach nur dämlich :D
Mein Ziel
Ich möchte via VBA den Login Button auf dieser Seite http://www.die-staemme.de/ drücken.
Mein bisheriger Code
Sub AbrufenDorfinfo()
Dim objIE1 As Object
Dim strUrl As String
strUrl = "www.die-staemme.de"
Set objIE1 = CreateObject("InternetExplorer.Application")
objIE1.Visible = True
objIE1.Navigate strUrl
While objIE1.busy = True
DoEvents
Wend
With objIE1.Document
.getElementById("user").Value = "jan"
.getElementById("password").Value = "Passwort"
Do: Loop Until .ReadyState = "complete"
' <-- Bis hierhin läufts!
objIE1.getElementById("js_login_button").Click ' Hier tritt der Fehler auf!
End With
'objIE1.Quit
Set objIE1 = Nothing
End Sub
Wär toll, wenn sich das einer anschauen könnte!
Danke :)
|