VBA automatsch einloggen
12.01.2020 11:35:48
MarC
ich suche gerade nach einer Möglichkeit per Button eine Website aufzurufen auf der ich mich dann automatisch einlogge. Im Internet habe ich auch schon was gefunden aber beim testen öffnet sich nur die Internetseite und in Excel erhalte ich den Laufzeitfehler 424. Wohlmöglich liegt es daran dass das Eingabefenster nicht Nachname lautet sondern irgendwie anders. Aber wie finde ich heraus wie die beiden Fenster heißen? Es muss sich doch wie eine Textbox verhalten die einen Namen hat und die dann automatisch die Daten geschrieben werden sollen. Kann mich bitte jemand erleuchten =)
Public Sub loggen()
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "https://login.xing.com/"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState 4
IEDocument.getElementByID("Nachname").Value = "Mustermann"
IEDocument.getElementByID("Passwort").Value = "12345"
IEDocument.getElementByID("OK").Click
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState 4
End Sub