xls.Mappe wieder aktivieren
02.05.2013 13:36:45
steffen
Dank Eurer Hilfe nutze ich für das Schliessen eines geöffneten Internet_Explorerfensters u.a Code. Den Code habe ich in ein Modul eingefügt.
Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
ByVal wCmd As Long) As Long
Const GW_HWNDNEXT = 2
Const WM_CLOSE = &H10
' Das ist ein Teil der Caption des Internetexplorerfensters - anpassen!!!!
Const strSearch As String = "Bericht"
Public Sub IE_Schliessen()
Dim lngReturnValue As Long
Dim strTMP As String * 256
Dim lngHwnd As Long
On Error GoTo Fin
lngHwnd = FindWindow(vbNullString, vbNullString)
Do While Not lngHwnd = 0
If GetParent(lngHwnd) = 0 Then
GetWindowText lngHwnd, strTMP, 256
If InStr(strTMP, strSearch) > 0 Then
lngReturnValue = PostMessage(lngHwnd, WM_CLOSE, 0&, 0&)
End If
End If
lngHwnd = GetWindow(lngHwnd, GW_HWNDNEXT)
Loop
Fin:
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
MsgBox "Das IE-Fenster wurde geschlossen."
End Sub
Merkwürdig erscheint mir auch, dass beim Schließvorgang des IE-Fensters das xls.Fenster, welches auf dem Bildschirm maximal dargestellt wird, plötzlich auf "Fenster wiederherstellen"-Größe schrumpft.
Leider kann ich die Datei hier nicht hochladen.