IE: Mit VBA einen bestimmte TAB öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long Sub LateBinding() Dim oIE As Object Dim oSW As Object Dim HWNDSrc As Long Set oIE = CreateObject("InternetExplorer.Application") Set oSW = CreateObject("Shell.Application") For Each oIE In oSW.Windows If oIE.LocationURL = "https://www.herber.de/forum/" Then HWNDSrc = oIE.HWND SetForegroundWindow HWNDSrc Exit Sub End If Next End Sub

Danke allen. Aber leider keine Lösung für mein Problem. Dies ist ein Beispiel. Leider wird hier nur auf ein Fenster zugegriffen. Aber nicht auf ein TAB.

Sub Laden()
Dim objShell As Object
Dim IEApp As Object, win As Object, IEDoc As Object
Dim adresse As String, gefunden As Boolean
gefunden = False
adresse = "https://www.deltavista-online.at/sb/login" '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
gefunden = True
AppActivate win.Document.Title & " - Win"
End If
End If
Next
If gefunden = False Then
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.visible = True
IEApp.Navigate adresse
Set IEApp = Nothing
End If
Set objShell = Nothing
End Sub

Es geht um diese Zeile: AppActivate win.Document.Title & " - Win"
Wie könnte diese Zeile modifiziert werden, dass der TAB aktiviert wird?
LG Peter

Hallo Peter,
so vielleicht:

Code:

Sub b()
Dim objShell As Object, win As Object, IEApp As Object
Dim adresse As String, objIE As Object, gefunden As Boolean
gefunden = False
adresse = "https://www.deltavista-online.at/sb/login" 'anpassen
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then
If win.LocationURL = adresse Then
'Tab schließen
win.Quit
gefunden = True
Exit For
Else
Set objIE = win
End If
End If
Next
If gefunden = True And Not objIE Is Nothing Then
'Tab neu öffnen und aktivieren
objIE.navigate2 adresse, 2048
AppActivate "Internet Explorer"
Else
'Seite in einer neuen Instanz des IEs öffnen
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate adresse
Set IEApp = Nothing
End If
Set objShell = Nothing
End Sub

mfg Anton

Beliebteste Forumthreads (12 Monate)

IE: Mit VBA einen bestimmte TAB öffnen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

IE: Mit VBA einen bestimmte TAB öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread