Holen Sie sich last-aktives Fenster in VBA

Dies ist nicht eine doppelte Frage.

Ich habe eine UserForm bleibt oben auf allen Fenstern die ganze Zeit. Ich will Zugriff auf Quellcode von einem bereits geöffneten Webseite. Ich kann nicht mit findWindow Funktion wie ich haben, mehrere browser-Fenster öffnen mit der exakt gleichen Titel. Ich bin Links mit nur einem option - Schalter in die gewünschte browser-Fenster und als UserForm ist an der Spitze, klicken Sie auf eine Schaltfläche zu wechseln zum letzten aktiven Fenster. Danach werde ich mit getForegroundWindow Funktion.

Wie kann ich Wechseln zum letzten aktiven Fenster ohne Verwendung findWindow oder SendKeys {"%Tab"}(Das funktioniert nicht)? Ich habe ganze internet durchsucht, konnte aber nicht eine Antwort bekommen.

Minimierung der form und immer der Griff funktioniert, aber während der Prüfung alle offenen windows immer Fehler auf For loop-Zeile als No more threads can be created in the system

Function GetIEByHWND(myHWND As Long) As InternetExplorer
    Dim tempWindow As Variant
    Dim objShellWindows As New SHDocVw.ShellWindows

    Set GetIEByHWND = Nothing

    On Error GoTo errhandler

    For Each tempWindow In objShellWindows
        If InStr(tempWindow.Path, "INTERNET") Then
           If myHWND = tempWindow.hwnd Then
               Set GetIEByHWND = tempWindow
               Exit For
            End If
        End If
    Next tempWindow

    Exit Function

Last active window meinst du den letzten aktiven TAB? oder verschiedenen Instanzen des Browsers mit dem gleichen Titel?
Nicht die der letzten aktiven Registerkarte. Ich glaube nicht, haben Sie mehrere Registerkarten, die ich über mehrere browser-Fenster. Öffnen werde ich die ie Fenster, von denen die source benötigt wird, aber das problem ist, wenn ich klicke auf button auf die UserForm zu erfassen, die Quelle des aktiven Fensters der Fokus wird auf die UserForm deshalb habe ich eine Verschiebung der focus zu den last active window wieder.Ähnlich Alt + Tab.
Ok, ich habe zwei Theorien über, wie man das macht. Sie sind ungetestet, obwohl. Theory 1 Durchlaufen Sie alle offenen Fenster und überprüfen Sie Ihre Z-Reihenfolge. Finden Sie die 2. oberste Fenster (1. wird Ihre form) und dann ab damit in den Griff. Theory 2 Minimieren Sie Ihr userform für ein paar Sekunden mit "ShowWindow" mit "SW_MINIMIZE" und dann erhalten Sie das handle des aktiven Fensters.
Ich habe gelöscht, den Kommentar finden Sie den code in die Frage.
Nein.. Sie tun es nicht so... Siehe das LINK
Wenn ich den Griff auf die gewünschte ie-Fenster, wie kann ich einstellen das Fenster, um eine Internet explorer-Objekt, ohne zu prüfen, alle geöffneten Fenster?
Ok, wie hast du den Griff?
Durch die Verwendung von GetForegroundWindow Private Declare Function GetForegroundWindow Lib "user32" () As Long
Aber das würde nicht geben Ihnen die Fenster, die Sie suchen. Es wird Ihnen der oberste windows-handle, welches ist dein userform.
Ich hoffe, jemand upvotes Ihre post, so dass Sie mehr als 20 Punkte und dann können wir chatten 🙂
Genau das war meine Frage war, wie das wechseln zum letzten aktiven Fenster. Ihre Lösung, um die form scheint zu funktionieren. Wenn die userform minimiert das aktive Fenster wird die gewünschte IE-Fenster, d.h. die foregroundwindow. also die obige Funktion gibt mir die handle des Fensters.
Oh, Ok. Sie sind also folgende THEORY 2? Ich Sprach in Bezug auf die Theory 1.
Ja, ich bin von der Theorie 2. Nun, da habe ich den Griff den ich einstellen will, das Fenster, um eine internet explorer-Objekt.
Sorry wurde abgelenkt auf einen anderen thread. Ok, lassen Sie mich ein paar tests machen und sich wieder auf Sie.

InformationsquelleAutor mayur2j | 2013-04-28

vba window

Ist es das, was Sie versuchen? Diese basiert auf THEORY 2

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Const SW_MINIMIZE = 6
Const SW_RESTORE = 9

Private Sub UserForm_Initialize()
    Application.Visible = False
End Sub

Private Sub CommandButton1_Click()
    Dim hwnd As Long, RetVal As Long

    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    RetVal = ShowWindow(hwnd, SW_MINIMIZE)

    '~~> This is required so that GetForegroundWindow
    '~~> doesn't pick up the userforms handle
    Sleep 2000

    hwnd = GetForegroundWindow()

    If GetIEByHWND(hwnd) Is Nothing Then
       MsgBox "Not Able to get the object"
    Else
       MsgBox "Was able to get the object"
    End If

    RetVal = ShowWindow(hwnd, SW_RESTORE)

    Application.Visible = True
End Sub

Function GetIEByHWND(myHWND As Long) As Object
    Dim tempWindow As Variant
    Dim objShellWindows As New SHDocVw.ShellWindows

    Set GetIEByHWND = Nothing

    For Each tempWindow In objShellWindows
        If InStr(1, tempWindow.Path, "INTERNET", vbTextCompare) Then
            If myHWND = tempWindow.hwnd Then
                Set GetIEByHWND = tempWindow
                Exit For
            End If
        End If
    Next tempWindow
End Function

FOLLOWUP

Sehen Sie diesen code, wo ich interagiere mit dem IE-Objekt.

Private Sub CommandButton1_Click()
    Dim hwnd As Long, RetVal As Long
    Dim IE As Object

    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    RetVal = ShowWindow(hwnd, SW_MINIMIZE)

    '~~> This is required to that GetForegroundWindow
    '~~> doesn't pick up the userforms handle
    Sleep 2000

    hwnd = GetForegroundWindow()

    Set IE = GetIEByHWND(hwnd)

    If IE Is Nothing Then
       MsgBox "Not Able to get the object"
    Else
       MsgBox "Was able to get the object"

       IE.Visible = False '<~~ Interacting with IE

       Sleep 2000

       IE.Visible = True
    End If

    RetVal = ShowWindow(hwnd, SW_RESTORE)

    Application.Visible = True
End Sub

Ja. Ich versuche, die gleiche Sache. Gibt es eine andere Möglichkeit dies zu tun. Da haben wir die handle können wir direkt auf das Fenster als IE Objekt?
Das ist es, was der obige code macht 🙂
Lassen Sie mich zu ändern Sie den obigen code so, dass kann ich Ihnen zeigen, wie Sie die Interaktion mit dem Objekt.
Aktualisieren Sie die Seite und sehen, FOLLOWUP 🙂
Ich bin mit dem gleichen code, aber ich bin immer Fehler in GetIEByHWND Methode, die ist, warum ich fragte nach einer alternative.
Hmmm, ich habe versucht, den code vor dem posten und nur wiederholt es wieder und es funktioniert. Haben Sie kopieren Sie die Funktion wie Sie ist oder haben Sie irgendwelche änderungen?
Ich hatte den genauen code, der bereits in meinem system. Es war die Arbeit von gestern. Jetzt hat es aufgehört zu arbeiten und es gibt Fehler.
Meine Funktion ist etwas anders als deins... Und damit bin ich gefragt, das hast du meiner Funktion oder Ihre Funktion?
Ich habe meinen PC neugestartet und mein code funktioniert jetzt. Scheint, dass es einige problem mit dem system. Anyways vielen Dank für Ihre Lösung. Es hat mir wirklich geholfen, eine Menge
Going durch Ihre theory 2 ich bin in der Lage, sich dem Griff der last active foreground window. Dies funktioniert gut, wenn ich nur ein Fenster öffnen und keine zusätzlichen tabs. Wie bekomme ich die handle wenn die IE window hat multiple tabs öffnen, habe ich, um den Griff last active foreground child window?
Wieder der Titel des Fensters ist nicht zu gebrauchen, da es mehrere Fenster mit dem gleichen Titel. Ich habe, um die handle von last active tab nur
Und daher auch mein Erster Kommentar unter deiner Frage... das ist der Grund, warum ich gebeten hatte, Sie do you mean the last active TAB? or different instances of browser with the same title? Der obige code funktioniert nicht für dieses Szenario 🙂 Es ist so ganz anders und komplexer Prozess.
Jede Lösung, die für verschiedene tabs?

InformationsquelleAutor Siddharth Rout

Ich war immer ein Fehler in GetIEbyHWND.

versuchen Sie, ein Schlaf

hwnd = GetForegroundWindow()
Sleep 2000
Set IE = GetIEByHWND(hwnd)

Oder diese Lösung

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Function oGetLatestIE(sURL As String, & _
Optional sWindowTitle As String = "MyWindowtitle") As Object

Dim IE As InternetExplorer
Set IE = New InternetExplorer

IE.Navigate sURL

Dim hwnd As Long

hwnd = GetForegroundWindow() ' get latest IE window
Set IE = Nothing  ' work around for windows 7 (intranet)

i = 0
Do While i < 10 And IE Is Nothing

    i = i + 1
    Set objShellApp = CreateObject("Shell.Application")
    For Each objWindow In objShellApp.Windows
        DoEvents

        If LCase(objWindow.LocationName) = LCase(sWindowTitle) Then

            If objWindow.hwnd = hwnd Then 'active IE window if more than one with same title
            Set IE = objWindow

            End If
        End If
    Next
    DoEvents
    sleep 100
Loop

If IE Is Nothing Then
MsgBox "nothing"
Exit Function
End If

Set oGetLatestIE = IE

End Function

InformationsquelleAutor ozmike

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.