AW: IE per vba füllen
13.02.2014 20:06:08
Martin
Hallo Werner,
in dem von dir anfangs geposteten Code-Schnipsel hattes du "IEDocument" als Objektvariable verwendet, also habe ich diese Variable auch bei meinem Lösungsvorschlag eingesetzt. Doch nun schreibst du, dass die Objektvariable "IEDoc" lautet. Das musst du natürlich entsprechend anpassen:
IEDoc.getElementsByName("benidein")(0).Value = Benutzer
IEDoc.getElementsByName("kennwein")(0).Value = Kennwort
'IEDoc.getElementById("Login").Click
Am Rande erwähnt sind einige Codezeilen deines Makros überflüssig. Versuche es mal so:
Sub Intranet()
Dim IEApp As Object, IEDocument As Object
Dim adresse As String, Benutzer As String, Kennwort As String
adresse = ActiveCell.Offset(0, 3)
Benutzer = ActiveCell.Offset(0, 7)
Kennwort = ActiveCell.Offset(0, 9)
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate adresse
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.document
Do: Loop Until IEDoc.readyState = "complete"
IEDoc.getElementsByName("benidein")(0).Value = Benutzer
IEDoc.getElementsByName("kennwein")(0).Value = Kennwort
'IEDoc.getElementById("Login").Click
Set IEDoc = Nothing
Set IEApp = Nothing
End Sub
Viele Grüße
Martin