Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Explorer schließen

Explorer schließen
26.12.2006 13:53:25
Andre´
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Explorer schließen
26.12.2006 14:37:48
Nepumuk
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
Anzeige
AW: Explorer schließen
26.12.2006 20:47:12
Andre´
Hallo Nepumuk,
danke für den Tipp funktioniert prima!
MFG
Andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige