VBA to close windows explorer window

[wigarth]

Hi!

I need to open windows explorer to access a file, and it would be nice to have a macro in that file to automatically close the explorer window (This is not Internet-explorer!)
I found plenty of macros to open explorer windows (Shell) but none wich will work to close it.

The path to the file is given so there is basically not nessescary to have a loop function to close all windows.

Anyone with a solution to this?

Best reggards
Wig - Norway

 

[wideboydixon]

This will close the first window it finds that uses the "CabinetWClass" class which is used by Explorer in Windows 10:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 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 Const WM_CLOSE = &H10
Public Sub CloseExplorer()

CloseByClass "CabinetWClass"

End Sub
Private Sub CloseByClass(className As String)

PostMessage FindWindow("CabinetWClass", vbNullString), WM_CLOSE, 0, 0

End Sub

WBD

 

[Poenankie]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 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 Const WM_CLOSE = &H10
Public Sub CloseExplorer()

CloseByClass "CabinetWClass"

End Sub
Private Sub CloseByClass(className As String)

PostMessage FindWindow("CabinetWClass", vbNullString), WM_CLOSE, 0, 0

End Sub

Thank you WBD your code works great. My question is, can this code be expanded/adapted to loop through all open folders and close them.

Poenankie

 

[wideboydixon]

Closing all explorer windows would be:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 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 Const WM_CLOSE = &H10
Public Sub CloseAllExplorerWindows()

Dim wh As Long

Do While True
    wh = FindWindow("CabinetWClass", vbNullString)
    If wh = 0 Then Exit Do
    PostMessage wh, WM_CLOSE, 0, 0
Loop

End Sub

WBD

 

[Poenankie]

Thank you very much Sir, it works like a charm!

 

[GCPaul]

Closing all explorer windows would be:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 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 Const WM_CLOSE = &H10
Public Sub CloseAllExplorerWindows()

Dim wh As Long

Do While True
    wh = FindWindow("CabinetWClass", vbNullString)
    If wh = 0 Then Exit Do
    PostMessage wh, WM_CLOSE, 0, 0
Loop

End Sub

WBD

Hi WBD

I don't think this is the right way, but new to the forum so trying this!
I've used an older post of yours to shrink text to fit an ActiveX Text Box, cheating through a label, it displays perfectly and I am running 24 of these on a page using your code. The problem is when I try and print it comes up with run time error 1004, unable to get the width property of the OLEObject Class
I'm sure it is something simple but it is doing my head in!

Thanks, hopefully
Paul

 

[Ray_Dem]

Thnks you sooooooooooooooooooooo much wideboydixon