Browser-fenster schließen

Sub LoadUrl() Dim URL As String Dim res, lZ Sheets("Download-Liste").Select lZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row res = ShellExecute(0&, "close", URL, vbNullString, vbNullString, vbNormalFocus) For i = 2 To lZ URL = Cells(i, 3) res = ShellExecute(0&, "open", URL, vbNullString, vbNullString, vbNormalFocus) Sleep 5000 '10 sekunden pause um ein anderes Fenster zu aktivieren Call prcSave_Picture_Screen Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heiko,
dazu musst du den Klassennamen der Browserfensters ermitteln und austauschen. Den Namen kannst du mit folgender Prozedur ermitteln:

Option Explicit

Private Declare Function EnumWindows Lib "user32.dll" ( _
    ByVal lpEnumFunc As Long, _
    ByVal lParam As Long) As Boolean
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
    ByVal hWnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" ( _
    ByVal hWnd As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
    ByVal hWnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal hWnd As Long, _
    ByVal wIndx As Long) As Long

Private Const GWL_STYLE = -&H10
Private Const WS_VISIBLE = &H10000000
Private Const WS_BORDER = &H800000

Private lngRow As Long

Public Sub prcStart()
    lngRow = 0
    With ThisWorkbook.Worksheets(1)
        .Cells.Clear
        Call EnumWindows(AddressOf fncWindows, ByVal 0&)
        .Columns.AutoFit
    End With
End Sub

Private Function fncWindows(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
    Dim strTemp As String, lngReturn As Long, strClassname As String * 100
    Dim lngStyle As Long
    lngStyle = GetWindowLong(hWnd, GWL_STYLE) And (WS_VISIBLE Or WS_BORDER)
    If lngStyle = (WS_VISIBLE Or WS_BORDER) Then
        lngReturn = GetWindowTextLength(hWnd)
        strTemp = Space$(lngReturn)
        Call GetWindowText(hWnd, strTemp, lngReturn + 1)
        lngRow = lngRow + 1
        GetClassName hWnd, strClassname, 100
        With ThisWorkbook.Worksheets(1)
            .Cells(lngRow, 1) = hWnd
            .Cells(lngRow, 2) = strTemp
            .Cells(lngRow, 3) = Trim(strClassname)
        End With
    End If
    fncWindows = True
End Function

Einfach in eine neue Mappe kopieren und laufen lassen (prcStart). Dein Browser muss dazu natürlich geöffnet sein.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Browser-fenster schließen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread