Office: Log in auf Webseite durchführen und dann auslesen

Hallo miteinander,

Code:

Mit diesem Code wollte ich mir ein Worddokument erstellen, das meine aktuellen Aufträge bei My-Hammer anzeigt. Allerdings scheitere ich am Log-in.

Ich stelle es mir so vor wie oben. Nachdem die Seite angesteuert wurde soll mittels Inputbox eine Passwort Abfrage erfolgen, welches im Log in eingesetzt wird. Dann zur entsprechenden Seite navigieren und auslesen.

Falls man dafür Java benötigt, da muss ich leider zischen. Habe mich nie damit beschäftigt.

:)

 

Hallo Tuereintreter,

dieser Code hat bei mir funktioniert:
Code:

 

Hallo

SendKeys lass mal lieber bleiben...

Dann schon lieber ganz direkt die Felder ansteuern und ansprechen:

Option Explicit

Private Sub machs()
Dim objIE As Object
Set objIE = CreateObject("Internetexplorer.Application")
With objIE
.Visible = True
.Navigate2 "http://www.my-hammer.de/myAccount.php?topic=myWatchlist"
Do While .busy
Do While .busy
DoEvents
Loop
Loop
.document.getelementbyId("usernameLogin").Value = "Dein_Login_Name"
.document.getelementbyId("passwordLogin").Value = "Geheim"
.document.getelementbyId("buttonLogin").Click
End With
End Sub


ransi

 

Hallo Ransi,

ich kenne mich zwar mit JavaScript ganz gut aus, wusste aber nicht, dass man das so einfach von VBA aus aufrufen kann.

Das ist natürlich um Klassen besser als SendKeys *redface.gif*

 

Coole Lösung, Danke Euch Beiden. Habe es so angewandt, da ich die Daten nicht im Cod speichern will:

Code:

Jetzt werde ich noch die gewünschten Infos Zusammenstellen und ins Dokument einarbeiten. Eine Frage hätte ich noch. Muss man den IE nehmen oder gibts da was mit Firefox und wie navigiere ich von Seite zu Seite, meine lasse mir die Infos anzeigen als hätte ich draufgeklickt, lese aus und dann wieder als hätte man den Zurück-Button gedrückt ?

 

Hi Hasso,

warum kommt bei dem Dokument, welches gestern Abend noch super lief jetzt Laufzeitfehler 91: Objektvariable bzw With Block nicht festgelegt ?
Sieht so aus wie es sein soll.

 

Hallo

Gib der Seite doch mal etwas Zeit.
Teste mal:
Private Sub cmd_Confirm_Click()

Dim objIE As Object
Set objIE = CreateObject("Internetexplorer.Application")
Dim Text As String

With objIE
.Visible = True
.Navigate2 "http://www.my-hammer.de/myAccount.php?topic=myWatchlist"
Do While .busy
Do While .busy
DoEvents
Loop
Loop
.Document.getelementbyId("usernameLogin").Value = UserForm1.cb_User.Text
.Document.getelementbyId("passwordLogin").Value = UserForm1.tb_Pass.Text
.Document.getelementbyId("buttonLogin").Click

Do While .busy
Do While .busy
DoEvents
Loop
Loop
Text = .Document.body.innertext
End With

ransi

 

Dachte die While Wend würde das Selbe machen wie die Do Loop. Werde das mal testen wenn ich am WE wieder am Desktop-PC sitze. Leider ist mein Laptop unfähig ActiveX Komponenten über VBA zu erzeugen. Kommt immer Laufzeitfehler 429 wenn man ein Objekt erstellt. Daher kann ich es nicht testen.

 

Ok, danke, funktioniert auf nicht verbugten Pc's.
Danke an Euch alle.