Browser-fenster schließen

Hallo
Hallo zusammen,
habe eine kleines Problem.
Ich möchete eine Internet-Seite mittels einer excel-Liste laden, eine screenshot erzeugen,
nächste I-seite usw.
Funktioniert prima.
Aber ich habe halt dann 50 oder mehr Fenster offen, weil jede Url in einem neuen fenster geöffnet wird.
Wie kann ich das Explorer fenster mit vba wieder schließen ?
Oder besser wie kann ich die nächste UrL im gleichen fenster laden?
Dank im schon mal
heiko


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

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

Forumthread: Browser-fenster schließen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Browserfenster mit Excel VBA schließen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)