Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1580to1584
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

IE Steuern

IE Steuern
14.09.2017 17:17:58
Christoph
Hallo,
ich bin es seit langem mal wieder.
Ich habe gerade das Problem das ich mich über den IE einloggen will und Daten auslesen will.
Der Quelttext sieht so aus.
Benutzername

Passwort


value="Daten ansehen"
data-track-ga="Reservations,Reservation Details,Update Block - View credit card details - Confirm">
Wie bekomme ich jetzt Name und Passwort eingegeben und den Button geklickt?
Würde mich über Hilfe Freuen.:)
Gruss Christoph

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IE Steuern
14.09.2017 22:43:24
Matthias
Moin!
ALso mit deinem html Auszug könnte (ist ungetestet) es so ungefähr gehen.
Set IEApp = CreateObject("InternetExplorer.Application")  ' neue IE öffnen
IEApp.Navigate myUrl   'auf Internetseite gehen
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True    'mal noch alles sichtbar lassen, kann evtl. später wegen Screenupdating  _
auch raus
Set IEDocument = IEApp.Document
IEDocument.getElementsByName("loginname").Value = deinen_Wert
IEDocument.getElementsByName("password").Value = deinen_passwort
IEDocument.getElementsByName("login").Click
'falls das mit dem Click nicht klappt, würde es ggf. auch so gehen
Set anmelden = IEDocument.getElementsByName("login")
anmelden.Click
Da mal mit probieren, bzw. als anhalt für weitere Recherche nehmen. Ist nur auf die schnelle aus einem Code von mir rauskopiert und angepasst. Die Variablendeklaratin fehlt deshalb.
VG
Anzeige
AW: IE Steuern
15.09.2017 07:02:00
Christoph
Hallo Matthias,
vielen dank schon mal für deine Hilfe. Leider funktioniert dies nicht. Bekomme bei allen 3en (Name,Passwort und Login) einen Fehler: Objekt unterstützt die Eigenschaft oder Methode nicht
Vielleicht hast du ja noch eine Idee.
Gruss Christoph
AW: IE Steuern
15.09.2017 12:11:22
Matthias
Hallo! Habe ausversehen unter meinem Post geantwortet. Hier nochmal bei dir:
Set IEApp = CreateObject("InternetExplorer.Application")  ' neue IE öffnen
IEApp.Navigate myUrl   'auf Internetseite gehen
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True    'mal noch alles sichtbar lassen,
Set IEDocument = IEApp.Document
'MsgBox IEDocument.getElementsByName("loginname")
IEDocument.getElementsByName("loginname")(0).Value = dein_login
IEDocument.getElementsByName("password")(0).Value = dein_psw
Set anmelden = IEDocument.getElementsByName("login")(0)
anmelden.Click
'IEDocument.getElementsByName("login")(0).Click

VG
Anzeige
AW: IE Steuern
16.09.2017 11:02:03
Christoph
Hey,
vielen dank! Das klappt so. Erspart mir jetzt eine Menge Arbeit.
Jetzt habe ich noch ein Problem mit den allgemeinen Login. Das andere war ja um bestimmte Daten auszulesen.

Einloggen

das ist der Code vom Button zum einloggen. Ich bekomme dort Benutzername und Kennwort eingegeben!
Zur zeit löse ich es so, dass man manuell den Button drückt nachdem fertig geladen und die anderen beiden Daten eingegeben sind. Ich bekomme das den Button als Objekt gefunden mit diesen Code.
For Each objCtrl In appIE.document.forms(0).elements
On Error Resume Next
If objCtrl.Type = "submit" then
objCtrl.Click
End If
Das Problem ist dann aber, dass er den Button anklickt aber er sich nicht einloggt sondern die gleiche Seite wieder lädt. Also die Einloggen-Seite. Hast du da eventuell auch wieder einen Tip?
Gruss Christoph
Anzeige
AW: IE Steuern
16.09.2017 12:49:00
Matthias
Moin!
Also habe mal noch in einigen meiner Programme geschaut. Probiere mal die folgenden Codeschnipsel. Damit sollte ggf. die verlinkte Aktion ausgeführt werden. Kann dir jetzt allerdings nicht garantieren, dass es klappt. VG
Set anmelden = IEDocument.getElementsByName("login")(0)
anmelden.FireEvent ("onclick")
Do: Loop Until IEApp.Busy = False
anmelden.FireEvent ("onkeypress")
Do: Loop Until IEApp.Busy = False
anmelden.FireEvent ("onkeydown")
Do: Loop Until IEApp.Busy = False

AW: IE Steuern
15.09.2017 09:14:18
Matthias
Moin!
Dann probiere es mal so:
Set IEApp = CreateObject("InternetExplorer.Application")  ' neue IE öffnen
IEApp.Navigate myUrl   'auf Internetseite gehen
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True    'mal noch alles sichtbar lassen,
Set IEDocument = IEApp.Document
'MsgBox IEDocument.getElementsByName("loginname")
IEDocument.getElementsByName("loginname")(0).Value = dein_login
IEDocument.getElementsByName("password")(0).Value = dein_psw
Set anmelden = IEDocument.getElementsByName("login")(0)
anmelden.Click
'IEDocument.getElementsByName("login")(0).Click
DAmit sollte es dann klappen. VG
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige