Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

lotusBtnContainer clicken
Autor: Ivan_1254
Datum: 29.10.14 09:05
Hallo zusammen, ich habe ein Problem bei dem ich leider nicht weiterkomme. Ich möchte mich gerne über VBA bei Connections anmelden. Hierzu Trage ich in einer Userform über textboxes Benutzername und Kennwort ein. Um diese zu bestätigen müsste ich anschließend den "Anmelden" Button drücken und genau daran scheitert es. Die "lotusFormField" für Benutzername und Kennwort sind mit einer ID und Name hinterlegt so dass ich auf diese ohne Probleme zugreifen kann. Beim "lotusBtnContainer" ist dies leider nicht der Fall und daher weiß ich nicht so recht wie ich auf diesen zugreifen kann. Die Elemente sind folgendermaßen hinterlegt (Quellcode aus IE). <p class="lotusFormField"> <label for="username">Benutzername:</label> <input id="username" aria-required="true" class="lotusText" type="text" name="j_username"> </p> <p class="lotusFormField"> <label for="password">Kennwort:</label> <input id="password" aria-required="true" class="lotusText" type="password" name="j_password"> </p> <div class="lotusBtnContainer"><input type="submit" class="lotusBtn lotusBtnSpecial" value="Anmelden"></div> Das einzige was ich bisdato zum clicken gefunden habe ist folgender Code: .document.getElementsByClassName("lotusBtn")(0).Click leider bekomme ich es damit nicht hin (auch in verschiedensten Variationen) Anbei mein aktueller Code: Sub login() Set Ie = CreateObject("InternetExplorer.Application") Ie.Visible = True Ie.Navigate "https://meine-seite.de" Do While Ie.ReadyState <> 4 DoEvents Loop Ie.document.getElementById("j_username").Value = ("Benutzername") Ie.document.getElementById("j_password").Value = ("Kennwort") 'Benutzerdaten übergeben und einloggen (über "Anmelden" Button clicken) End Sub Ich hoffe jemand von euch kann mir hierbei weiterhelfen Schöne Grüße Ivan

Re: lotusBtnContainer clicken
Autor: Ivan_1254
Datum: 30.10.14 09:17
Hallo zusammen, habe das Problem inzwischen anhand eines anderen Topics, den ich davor nicht gesehen habe, gelöst. Sub login() Set Ie = CreateObject("InternetExplorer.Application") Ie.Visible = True Ie.Navigate "https://meine-seite.de/" Do While Ie.ReadyState <> 4 DoEvents Loop Ie.Document.getelementbyid("j_username").Value = ("Benutzername") Ie.Document.getelementbyid("j_password").Value = ("Kennwort") Dim objSite As Object Dim obj As Object Set objSite = Ie.Document.getElementsByTagName("input") For Each obj In objSite If obj.Value = "Anmelden" Then Exit For End If Next obj.Click End Sub Schöne Grüße Ivan

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen