424 Objekt erforderlich
25.02.2014 22:36:25
Rainer
Kann mir jemand helfen, ich weiß nicht mehr weiter
_________________
Public Sub ServicePortalZZZ(pPerson As TypPerson, pArt As String)
Dim iBrowser As WebBrowser, lreadyState As Integer, i As Integer
Dim lKey As String, lusername As String, lpassword As String
i = 1
Do
i = i + 1
Loop Until XLS_DbField("WebFelder", i, "WebFeldPersonNr") = pPerson.PersonNr Or _
XLS_DbField("WebFelder", i, "WebFeldPersonNr") = ""
Do While XLS_DbField("WebFelder", i, "WebFeldPersonNr") = pPerson.PersonNr Or _
XLS_DbField("WebFelder", i, "WebFeldPersonNr") ""
If XLS_DbField("WebFelder", i, "WebFeldPersonNr") = pPerson.PersonNr Then
Select Case XLS_DbField("WebFelder", i, "WebFeldFeldname")
Case "Key"
lKey = XLS_DbField("WebFelder", i, "WebFeldWert")
Case "username"
lusername = XLS_DbField("WebFelder", i, "WebFeldWert")
Case "password"
lpassword = XLS_DbField("WebFelder", i, "WebFeldWert")
End Select
End If
i = i + 1
Loop
Set iBrowser = CreateObject("InternetExplorer.Application")
' Anmelde-Seite laden
If pArt = "Admin" Then
iBrowser.Navigate "https://xxx.com/hsv3_hotelView/?lang=de"
Else
iBrowser.Navigate "https://yyy.com/portal/"
End If
' Warten, bis Webseite vollständig geladen wurde
lreadyState = 0
Do While iBrowser.readyState READYSTATE_COMPLETE
If lreadyState iBrowser.readyState Then
lreadyState = iBrowser.readyState
Debug.Print lreadyState, iBrowser.Busy
End If
Loop
On Error GoTo ErrHandler
With iBrowser.Document.Forms("loginForm")
.elements("Key").Value = lKey
.elements("password").Value = lpassword
.elements("username").Value = lusername
' Formular abschicken
'.Submit
End With
On Error GoTo 0
' Browser anzeigen
iBrowser.Visible = True
Exit Sub
ErrHandler:
MsgBox "Fehler" & vbCrLf & _
"Formular oder Element existiert nicht." & vbCrLf & _
"Fehler: " & CStr(Err.Number) & " " & Error(Err.Number), vbExclamation
End Sub
Danke Rainer
Anzeige