Mit Excel in Webseite anmelden
Mister
ich versuche vergeblich aus Excel heraus eine Webseite zu öffnen und mich dort automatisch anzumelden. Folgendes Beispiel habe ich gefunden aber leider nicht zu Laufen gebracht:
Sub Zeiterfassung()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
On Error Resume Next
'False ist unsichtbar True ist Sichtbar
appIE.Visible = True
appIE.Navigate "http://jvceap01/webaspx/"
Call ShowWindow(appIE.hwnd, SW_MAXIMIZE)
Do While appIE.ReadyState READYSTATE_COMPLETE
DoEvents
Loop
appIE.Document.all.LoginUserControl__passwordLabel.Value = Sheets("PersDaten").Range("P1")
appIE.Document.all.LoginUserControl__passwordTextBox.Value = Sheets("PersDaten").Range("Q1")
appIE.Document.all.LoginUserControl__connectButton.Click
''Webseite schliesen
'appIE.Quit
Set appIE = Nothing
End Sub
Der Quellcode ist beigefügt. Kann mir jemand bitte helfen?
https://www.herber.de/bbs/user/67745.txt
Gruß
Martin
Anzeige