MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 13.09.2017, 09:43   #1
Helle1
MOF User
MOF User
Standard Excel 2013 - Login mit Excel auf Webseite

Hallo zusammen,

ich möchte mich gerne via Excel auf einer Webseite einloggen. Ich habe das auf anderen Seiten mit dem unten stehenden Code auch schon öfters gemacht. Bei der jetzt anstehenden Seite bekomme ich aber den Hinweis, dass ein Objekt erforderlich sei?!?!

Hat jemand eine Idee, wie die Lösung aussieht?

Danke und Grüße
Tobias

Code:

Option Explicit
Public IEApp, IEDocument As Object

Public Sub Einloggen_RB()


Set IEApp = CreateObject("InternetExplorer.Application")

IEApp.Visible = True
IEApp.navigate "https://www.rebuy.de/my/auth"

Call SeitenaufbauAbwarten
    
IEDocument.getElementByID("login_username").Value = "User"
IEDocument.getElementByID("login_passwort").Value = "PW"
IEDocument.getElementByID("login_submit").Click

Call SeitenaufbauAbwarten

End Sub

Public Sub SeitenaufbauAbwarten()
'Vollständigen Aufbau der Internetseite abwarten und neu geöffnete Seite aktivieren
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState <> 4
End Sub
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 09:48   #2
Silentwolf
MOF User
MOF User
Standard

Hallo,
hab das noch nie gemacht aber hast Du den richtigen Verweis eingebunden aso InternetExplorer

__________________

Gruß
Albert
Silentwolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 13:58   #3
EarlFred
MOF Guru
MOF Guru
Standard

Hallo,

wenn getElementByID kein Element mit dem angegebenen Namen findet, liefert es NULL zurück. NULL ist kein Objekt und kennt demnach auch die Eigenschaft Value nicht.

Möglicherweise wurde die Webseite umgebaut und die Elemente heißen nun anders. Prüfe das und trage die passenden Element-IDs ein.

Schau Dir auch mal Nepumuks Idee als alternative Programmierung Deiner Sub SeitenaufbauAbwarten an.

@Albert

Zitat:

hast Du den richtigen Verweis eingebunden

Das ist beim hier verwendeten Late-Binding nicht notwendig.

Grüße
EarlFred
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 15:07   #4
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo,

danke für die Hinweise.

Wenn ich auf "https://www.rebuy.de/my/auth" gehe und im entsprechenden Element auf "Element untersuchen" gehe, steht da



Dann ist das doch die korrekte ID, oder?

Hat noch jemand eine Idee?

Danke schon einmal!
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 15:08   #5
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

das steht da ;-)

Code:

input id="login_username" name="_username" autofocus="" required="required" class="form-control" type="email"
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 15:44   #6
EarlFred
MOF Guru
MOF Guru
Standard

Hallo,

vielleicht löst ja auch erst die nächste Zeile den Fehler aus:
Code:

IEDocument.getElementByID("login_password").Value = "PW"
Grüße
EarlFred
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 15:51   #7
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich glaub die ID heißt schon login_password

Code:

input id="login_password" name="_password" required="required" class="form-control" type="password"
Ich hab keine Idee, was ich falsch mache...
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 16:04   #8
EarlFred
MOF Guru
MOF Guru
Standard

Zitat:

Ich glaub die ID heißt schon login_password

ja, das glaube ich auch. Aber das musst Du Deinem Code auch mitteilen...

IEDocument.getElementByID("login_passwort").Value = "PW"
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 07:50   #9
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ah, sorry den Schreibfehler habe ich übersehen. Danke für den Hinweis.

Jetzt kommt kein Fehler mehr, es wird aber nach wie vor kein Benutzername und kein Passwort eingetragen.

Hat noch jemand eine Idee?
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.09.2017, 08:14   #10
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo nochmal zusammen,

hat wirklich niemand eine Idee, weswegen der Benutzername und das Passwort auf dieser Seite nicht in die Felder übertragen werden und der Button nicht "geclickt" wird?

Bin mit meinem Latein am Ende und auf anderen Seiten funktioniert das mit diesem Code einwandfrei

Danke schon mal und viele Grüße
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2017, 11:06   #11
_anton_
MOF User
MOF User
Standard

Hallo Tobias,

so?:
Code:

Sub Einloggen_RB()
  Dim IEApp As Object, user As Object, pw As Object  
  Set IEApp = CreateObject("InternetExplorer.Application")  
  IEApp.Visible = True
  IEApp.Navigate "https://www.rebuy.de/my/auth"
  Do: Loop Until IEApp.Busy = False    
  Do: Loop Until IEApp.Busy = False    
  Do: Loop Until IEApp.Document.ReadyState = "complete"    
  For Each user In IEApp.Document.getelementsbyname("_username")    
    user.Value = "User" 'anpassen
  Next
  For Each pw In IEApp.Document.getelementsbyname("_password")    
    pw.Value = "PW" 'anpassen
  Next
  IEApp.Document.getElementByID("login_submit").Click
  Set IEApp = Nothing  
End Sub  



mfg Anton
_anton_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.09.2017, 13:27   #12
Helle1
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Anton,

es funktioniert! Habe herzlichen Dank für deine Hilfe!

Grüße
Tobias
Helle1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:22 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.