Programme in Excel mit VBA beenden
Schritt-für-Schritt-Anleitung
Um ein fremdes Programm wie Outlook oder den Windows-Rechner mit VBA zu beenden, kannst Du die folgenden Schritte ausführen:
- VBA-Editor öffnen: Drücke
ALT + F11, um den VBA-Editor in Excel zu öffnen.
- Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle
Einfügen > Modul.
- Code einfügen: Kopiere den folgenden Code in das 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.dll" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_READ = &H10
Private lvntTaskId As Long
Public Sub Close_Outlook()
Dim lngHandle As Long
lvntTaskId = Shell("C:\Programme\Microsoft Office\OFFICE11\OUTLOOK.EXE", vbMaximizedFocus)
If lvntTaskId <> 0 Then
lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lvntTaskId)
If lngHandle <> 0 Then Call TerminateProcess(lngHandle, 0&)
End If
End Sub
- Programm ausführen: Führe die
Close_Outlook Subroutine aus, um Outlook zu beenden.
Häufige Fehler und Lösungen
-
Laufzeitfehler 5: Tritt auf, wenn der Titel des Fensters nicht korrekt angegeben ist. Überprüfe den Titel im Task-Manager oder in der Anwendung selbst.
-
Outlook schließt nicht: Stelle sicher, dass der Pfad zur Outlook.exe korrekt ist. Manchmal kann es helfen, den Pfad anzupassen, indem Du /recycle am Ende hinzufügst.
-
SendKeys funktioniert nicht: Wenn Du SendKeys verwendest, stelle sicher, dass die Anwendung im Vordergrund ist. Nutze AppActivate vor dem Befehl.
Alternative Methoden
Eine andere Möglichkeit, ein Programm zu beenden, ist die Nutzung des Windows Management Instrumentation (WMI) Services. Hier ein Beispiel, wie Du Outlook mit WMI beenden kannst:
Sub Outlook_beenden()
Dim objWMI As Object, objProcess As Object
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProcess = objWMI.ExecQuery("Select * from Win32_Process Where Name = 'OUTLOOK.exe'")
On Error Resume Next
For Each objProcess In objProcess
objProcess.Terminate
Next
If Err.Number <> 0 Then MsgBox "Es sind Fehler aufgetreten beim Versuch Outlook zu beenden!", vbCritical
Set objProcess = Nothing: Set objWMI = Nothing
End Sub
Praktische Beispiele
-
Outlook beenden: Verwende den oben genannten Close_Outlook Code, um Outlook zu schließen.
-
Rechner beenden: Ändere den Code so, dass er den Windows-Rechner (calc.exe) schließt:
Public Sub Close_Rechner()
Dim lngHandle As Long
lvntTaskId = Shell("C:\Windows\System32\calc.exe", vbMaximizedFocus)
If lvntTaskId <> 0 Then
lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lvntTaskId)
If lngHandle <> 0 Then Call TerminateProcess(lngHandle, 0&)
End If
End Sub
Tipps für Profis
-
Prozesse effizient beenden: Stelle sicher, dass Du immer die richtigen Berechtigungen hast, um Prozesse zu beenden. Bei administrativen Aufgaben kann es nötig sein, Excel als Administrator zu starten.
-
Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen in Deinen Code ein, um unerwartete Situationen elegant zu handhaben.
-
Testen unter verschiedenen Excel-Versionen: Achte darauf, Deinen Code in verschiedenen Versionen von Excel zu testen, da es Unterschiede im Verhalten geben kann.
FAQ: Häufige Fragen
1. Wie kann ich Excel sofort beenden?
Du kannst den Befehl Application.Quit verwenden, um Excel sofort zu schließen.
2. Was ist der Unterschied zwischen OpenProcess und TerminateProcess?
OpenProcess wird verwendet, um ein Handle für einen Prozess zu erhalten, während TerminateProcess verwendet wird, um den Prozess tatsächlich zu beenden.
3. Warum funktioniert SendKeys manchmal nicht?
SendKeys funktioniert nur, wenn die Anwendung im Vordergrund ist. Wenn eine andere Anwendung den Fokus hat, wird der Befehl möglicherweise nicht korrekt ausgeführt.