Web login per VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Web login per VBA
von: Michael
Geschrieben am: 30.04.2015 12:38:07

Hallo zusammen,
ich hab den nachfolgenden Code um mich darüber auf einer Internetseite einzulogen, jedoch funktioniert er nicht. Stattdessen bekomme ich immer eine Fehlermeldung:

Public Sub Main()
    Dim objIEx As Object
    On Error GoTo Fin
    Set objIEx = CreateObject("InternetExplorer.Application")
    With objIEx
        .Visible = True
.Navigate ("http://fltopsie.air.ups.com/apps/UserLogin/UserLogin.cfm")
        Do
            If .ReadyState = 4 Then
                Exit Do
            Else
                DoEvents
            End If
        Loop
        .Document.forms(0).All("GemsID").Value = "xyz"
        .Document.forms(0).All("Password").Value = "xyz"
        .Document.forms(0).Submit
    End With
Fin:
    Set objIEx = Nothing
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub
Ich bin mir nicht sicher ob ich die richtigen Fenster für die Logindaten ansteuere. Dazu hab ich mal den Code der Seite eingefügt. Vielleicht kennt sich jemand etwas besser damit aus und kann mir sagen welche Werte ich dafür nehmen soll.
Danke und Gruß
Michael
https://www.herber.de/bbs/user/97383.txt

Bild

Betrifft: AW: Web login per VBA
von: Michael
Geschrieben am: 30.04.2015 12:56:36
Die Fehlermeldung ist:
Error: -2147417848 Automation error
The object invoked has disconnected from its clients.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Makros verschwunden"