Herbers Excel-Forum - das Archiv

Explorer schließen

Bild

Betrifft: Explorer schließen
von: Andre´

Geschrieben am: 26.12.2006 13:53:25
Hallo alle zusammen,
ich möchte per VBA den Explorer wieder schließen. Zum öffnen habe ich folgenden Code.
Sub öffnen()
Shell "Explorer C:\", vbNormalFocus
End Sub

Kann mir bitte jemand sagen, wie der Befehl zum schließen lautet.
Danke im voraus!
MFG
Andre
Bild

Betrifft: AW: Explorer schließen
von: Nepumuk

Geschrieben am: 26.12.2006 14:37:48
Hallo Andre,
einfach so:
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function OpenProcess Lib "kernel32.dll" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" ( _
    ByVal hProcess As Long, _
    ByVal uExitCode As Long) As Long

Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_READ = &H10

Private lngTaskID As Long

Public Sub prcOpen_Explorer()
    lngTaskID = Shell("Explorer C:\", vbNormalFocus)
End Sub

Public Sub prcClose_Explorer()
    Dim lngHandle As Long
    lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lngTaskID)
    TerminateProcess lngHandle, 0&
End Sub

Gruß
Nepumuk
Bild

Betrifft: AW: Explorer schließen
von: Andre´
Geschrieben am: 26.12.2006 20:47:12
Hallo Nepumuk,
danke für den Tipp funktioniert prima!
MFG
Andre
 Bild
Excel-Beispiele zum Thema "Explorer schließen"
Bei Doppelklick Ordner im Explorer öffnen HTML-Datei im Internet-Explorer mit fester Fenstergrösse
Grafik in Internet Explorer laden