VBA Homepage Navigation
15.05.2013 09:15:27
Thorsten
Ich möchte mich auf einer HP einloggen und mich durchnavigieren bis zu einer bestimmten Datei, die ich dann runterladen möchte.
Bisher funktioniert das einloggen jedoch dannach gehts nicht weiter.
Ich habe einen Button der keine id oder sowas hat nur eine übergeordnete Klasse. So wie es aussieht handelt es sich dabei um ein Javascript da in dem href=java... steht.
Die unterste Zeile funktioniert zwar jedoch erst kommt der Debugger mit der Fehlermeldung 80020101. Führ ich das Makro dann nochmals aus macht er den nächsten Schritt.
Vielen Dank für eure Hilfe schonmal.
Anbei der Code:
Sub login()
Dim WebBrowser1 As Object
Dim i As Integer, AktValue As String
Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Visible = True WebBrowser1.Navigate "http://homepage.com"
While WebBrowser1.ReadyState 4
Wend
WebBrowser1.document.all("ID").Value = "Name"
WebBrowser1.document.all("PW").Value = "Passwort"
WebBrowser1.document.all("submitButton").Click
WebBrowser1.document.parentWindow.execScript "javascript:top.findReports();"
End Sub