VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 09:23:57	Erik Beige
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 15:50:33	Gast72939
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 16:19:28	Gast2192
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 20:17:19	Gast77427
internet explorer - bestimmten Tab in den Vordergrund holen	09.09.2019 17:02:13	Gast5585
internet explorer - bestimmten Tab in den Vordergrund holen	10.09.2019 09:35:45	Gast21988
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 19:57:13	Gast7777

Ansicht des Beitrags:

Von:
Gast72939

Datum:
05.09.2019 15:50:33

Views:
607

Rating:

Antwort:

Thema:
internet explorer - bestimmten Tab in den Vordergrund holen

Mal ein ganz simples Beispiel:

Es ist völlig egal ob der relevante Tab aktiv ist oder nicht. Jeder Tab kann geziehlt einzeln angesprochen werden, egal ob sichtbar oder nicht.

Ich habe hier auf Fehlerbehandlung verzichtet.

Option Explicit

Sub Test()
  
  Dim objShell    As Object
  Dim objWindows  As Object
  Dim objWindow   As Object
  Dim objItems    As Object
  
  Set objShell = CreateObject("Shell.Application")
  Set objWindows = objShell.Windows
  
  
  'Wir suchen nach einem Tab in dem die Google-Seite geöffnet ist,
  'füllen das Suchen-Feld aus und drücken auf die Suchen-Schaltfläche.
  ' - Der entspr. Tab muss dabei nicht der aktive sein.
  For Each objWindow In objWindows
    
    Debug.Print objWindow.LocationName; Tab(5); objWindow.LocationURL
    
    If InStr(objWindow.LocationURL, "google.de") Then
      
      Set objItems = objWindow.Document.getElementsByName("q")
      
      If objItems.Length > 0 Then
        
        objItems(0).Value = "Blaaaah~Blub"
        
        Set objItems = objWindow.Document.getElementsByName("btnK")
        If objItems.Length > 0 Then
          objItems(0).Click
        End If
        
      End If
      
    End If
    
  Next

End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 09:23:57	Erik Beige
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 15:50:33	Gast72939
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 16:19:28	Gast2192
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 20:17:19	Gast77427
internet explorer - bestimmten Tab in den Vordergrund holen	09.09.2019 17:02:13	Gast5585
internet explorer - bestimmten Tab in den Vordergrund holen	10.09.2019 09:35:45	Gast21988
internet explorer - bestimmten Tab in den Vordergrund holen	05.09.2019 19:57:13	Gast7777