Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Internetzugriff

Internetzugriff
04.03.2013 10:04:54
Michael
Hallo Excelgemeinde,
ich habe folgendes Problem.
Ich möchte den Login einer Homepage mit VBA automatisieren.
Das funktioniert auch mit dem unten aufgeführten Script.
Der Login der Homepage erfolgt aber in zwei Schritten.
Nach dem Eintragen der mail Adresse wird man auf eine zweite Seite geschickt, bei der man das Passwort eingeben muss.
Wie kann ich die zweite Homepage ansprechen, ohne dass ich diese mit ".Navigate" aufrufe.
Gruß
Michael
Sub login()
Dim Ieapp As Object,
Set Ieapp = CreateObject("InternetExplorer.Application")
Set url = CreateObject("InternetExplorer.Application")
Ieapp.Visible = True
Ieapp.Navigate "Starthomepage"
Do Until Ieapp.Busy = False
Loop
With Ieapp
.Document.getelementbyid("Auth_Email").Value = "emailadresse"
.Document.getelementbyid("Auth_Submit").Click
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Internetzugriff
04.03.2013 15:24:17
Anton
Hallo Michael,
ungetestet:
Sub login()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
'erste Seite aufrufen und ausfüllen
IEApp.Navigate "Starthomepage"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
IEApp.Document.getElementById("Auth_Email").Value = "emailadresse"
'zweite Seite aufrufen
IEApp.Document.getElementById("Auth_Submit").Click
'warten bis die zweite Seite geladen wurde
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
'zweite Seite ausfüllen
IEApp.Document.getElementById("Passwort").Value = "Passwort" 'anpassen
IEApp.Document.getElementById("Anmelden").Click 'anpassen
Set IEApp = Nothing
End Sub

mfg Anton

Anzeige
AW: Internetzugriff
05.03.2013 08:34:08
Michael
Vielen Dank,
funktioniert super.
Ich habe aber noch eine Frage.
Wie kann ich abfragen, ob eine Seite bereits geöffnet ist.
Wenn die Homepage bereits mit Login geöffnet ist, bekommt man einen Laufzeitfehler, da die angesprochenen Button nicht existent sind.
Gruß
Michael

Internetzugriff
05.03.2013 15:41:01
Anton
Hallo Michael,
wenn ich dich richtig verstanden habe, dann so vllt(ungetestet):
Sub login()
Dim IEApp As Object, Auth_Email As Object, Passwort As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
'erste Seite aufrufen und ausfüllen
IEApp.Navigate "Starthomepage"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
Set Auth_Email = IEApp.Document.getElementById("Auth_Email")
If Not Auth_Email Is Nothing Then
Auth_Email.Value = "emailadresse"
'zweite Seite aufrufen
IEApp.Document.getElementById("Auth_Submit").Click
'warten bis die zweite Seite geladen wurde
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
End If
Set Passwort = IEApp.Document.getElementById("Passwort") 'anpassen
If Not Passwort Is Nothing Then
'zweite Seite ausfüllen
Passwort.Value = "Passwort" 'anpassen
IEApp.Document.getElementById("Anmelden").Click 'anpassen
End If
Set IEApp = Nothing
End Sub

mfg Anton
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige