mit dem nachfolgenden Code kann ich den Explorer zwar wie gewünscht öffnen, aber mir ist nicht bekannt, wie ich ihn wieder schließe. Versuche mit "vbHide" waren erfolglos.
Die Öffnungsprozedur lautet:
Sub ExplorerAnzeigen()
Dim exver As String
exver = Application.version
On Error Resume Next
If Left(exver, 2) >= "11" Then
Shell "Explorer ," & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len( _
ThisWorkbook.Name)), vbNormalFocus
Else
Shell "Explorer " & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len( _
ThisWorkbook.Name)), vbNormalFocus
End If
End Sub
Wie kann ich den Explorer wieder schließen?
Danke vorab!
Gruß Klaus