Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

IE Steuern


Betrifft: IE Steuern von: Christoph Zahn
Geschrieben am: 14.09.2017 17:17:58

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.

<'label>Benutzername
<'input name="loginname" type="text" class="form-control">

<'label>Passwort
<'input name="password" type="password" class="form-control">


<'input type="submit" name="login" class="btn btn-primary btn-block"
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

  

Betrifft: AW: IE Steuern von: Matthias
Geschrieben am: 14.09.2017 22:43:24

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


  

Betrifft: AW: IE Steuern von: Christoph Zahn
Geschrieben am: 15.09.2017 07:02:00

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


  

Betrifft: AW: IE Steuern von: Matthias
Geschrieben am: 15.09.2017 12:11:22

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


  

Betrifft: AW: IE Steuern von: Christoph Zahn
Geschrieben am: 16.09.2017 11:02:03

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.

<'button tabindex="4" class="btn btn-primary btn-block" type="submit" data-track-ga="login page, submit_button, click">
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


  

Betrifft: AW: IE Steuern von: Matthias
Geschrieben am: 16.09.2017 12:49:00

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



  

Betrifft: AW: IE Steuern von: Matthias
Geschrieben am: 15.09.2017 09:14:18

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


Beiträge aus den Excel-Beispielen zum Thema "IE Steuern"