Internetseite mit Daten befüllen.
Sebastian
ich habe mit eine internetseite mit folgenden code befüllt.
Sub b()
Dim objShell As Object
Dim IEApp As Object, win As Object
Dim adresse As String
adresse = "http://www.skylu.de/auswahl.php" 'anpassen
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then
If win.Document.Location = adresse Then
Set IEApp = win
Exit For
End If
End If
Next
If IEApp Is Nothing Then
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate adresse
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
End If
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("anrede").Value = "Herr"
IEDocument.getElementById("vorname").Value = "Sebastian"
IEDocument.getElementById("name").Value = "lupo"
Set IEDocument = Nothing
Set IEApp = Nothing
Set objShell = Nothing
End
Sub
Jetzt Ändert sich leider aufgrund von Sessions ständig die Seiten URL.
Gibt es auch eine Möglichkeit das mit dem Seitennamen (webseit.de - Anmeldeformular) zu machen? _
Vielen Dank
Gruß
Sebastian