Geöffnetes IE Fenster befüllen

Sub Login() Dim IEApp As Object, hyper_link As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "***://delisonline.dpd.de/delisonline/index.jsp" IEApp.TheaterMode = False IEApp.AddressBar = False IEApp.MenuBar = False IEApp.StatusBar = False IEApp.Toolbar = False IEApp.Resizable = True ' Hier die Fenstergröße definieren IEApp.Height = 1000 IEApp.Width = 1024 IEApp.Left = 0 IEApp.Top = 0 Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Document.ReadyState = "complete" With IEApp.Document.All .Item("txtLogin").Value = "mein@email.de" 'Set username End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sebastian,
wenn ich es richtig verstehe, willst Du ein Fenster des Internet Explorers ansprechen, dass bereits außerhalb Deines Makros, geöffnet wurde mit dem Du drauf zugreifen willst. Das geht meines Wissens nach nur, wenn Du die ProcessID (PID) des bereits geöffneten Fensters ermittelst. Das widerum geht nur über eine API Funktion:


Declare Function GetWindowThreadProcessId Lib "user32.dll" ( _
ByVal hwnd As Long, _
lpdwProcessId As Long) As Long

Die allein reicht aber nicht. Du musst ja auch noch etwas mit der PID anfangen. Zusätzlich brauchst Du auch noch einen Weg, um die richtige rauszufiltern, falls bereits mehrere Internet Explorer Fenster geöffnet wurden. Darüber hinaus musst Du dann innerhalb der richtigen Internet Explorer Instanz den richtigen Tab im IE ansprechen.
Wie das alles im Zusammenspiel funktioniert kann ich Dir nicht sagen. Du kannst Dir aber unter folgendem Link erste Informationen ansehen und vielleicht etwas Code ausprobieren. Weiter Recherchieren musst Du dann selbst. Das scheint mir nicht grade trivial.
http://www.vbarchiv.net/api/api_getwindowthreadprocessid.html
Vielleicht kann Dir aber auch jemand der hier vertretenen Cracks sagen, wie das benötigte Konstrukt insgesamt funktioniert.
Viele Grüße,
Zwenn

Option Explicit Sub Main() Dim IEXPEX As SHDocVw.ShellWindows Dim objIE As Object On Error GoTo Fin Set IEXPEX = New SHDocVw.ShellWindows For Each objIE In IEXPEX Debug.Print "URL: " & objIE.LocationURL Next objIE Fin: Set IEXPEX = Nothing Set objIE = Nothing End Sub

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

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Geöffnetes IE Fenster befüllen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread