andere Anwendung aus Excel schließen möglich?

Karsten · 2009-02-26T09:17:31+00:00

Hallo... Läßt sich aus Excel heraus eine Anwendung schließen? Öffnen ging ja mit: Set wshShell = CreateObject("WScript.Shell") wshShell.Run "C:\WINDOWS\system32\Notizen.txt" Aber eben schließen.... Danke für eure Hilfe Gruß Karsten

Hi Karsten,
wie gehabt: Warum beginnen Anfänger immer gleich mit VBA oder sogar mit VBS-Scripting ?
Code 1:1 und ungesehen übernehmen & anzupassen kann zu schwerwiegenden Krankheiten führen...
Es fehlen Gänsefüsschen und Error-Handler:


Sub Programm_abschiessen()
Const STRPC As String = "."
Dim errMsg As String
errMsg = "Fehler in Programm abschiessen"
Dim objWMI As Object, objProcesses As Object, objProcess As Object
On Error GoTo errHandler
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRPC & "\root\cimv2")
Set objProcesses = objWMI.ExecQuery _
("Select * from Win32_Process Where Name = 'notepad.exe'")
For Each objProcess In objProcesses
objProcess.Terminate
Next
errMsg = ""
errHandler:
If errMsg  "" Then MsgBox errMsg, vbOKOnly + vbCritical, "WMI-Error"
Set objProcess = Nothing
Set objProcesses = Nothing
Set objWMI = Nothing
End Sub

GreetZ Renée

DIESEN Code in das Modul kopieren, bitte:


Sub Programm_abschiessen()
Const STRPC As String = "."
Dim errMsg As String
errMsg = "Fehler in Programm abschiessen"
Dim objWMI As Object, objProcesses As Object, objProcess As Object
On Error GoTo errHandler
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRPC & "\root\cimv2")
Set objProcesses = objWMI.ExecQuery _
("Select * from Win32_Process Where Name = 'notepad.exe'")
For Each objProcess In objProcesses
objProcess.Terminate
Next
errMsg = ""
errHandler:
If errMsg  "" Then MsgBox errMsg, vbOKOnly + vbCritical, "WMI-Error"
Set objProcess = Nothing
Set objProcesses = Nothing
Set objWMI = Nothing
End Sub

oder heisst der Prozess den du abschiessen willst saplogon.exe ?
Dann muss auch dieser in Hooochkommas also .... 'saplogon.exe'"
Die Dinger blinken, damit sie dir ins Auge stechen und ja es sind keine Gänsefüsschen, sondern Hochkommas, aber sie sind lebensnotwendig für den Code!
GreetZ Renée

andere Anwendung aus Excel schließen möglich?

Forumthread: andere Anwendung aus Excel schließen möglich?

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

andere Anwendung aus Excel schließen möglich?

Forumthread: andere Anwendung aus Excel schließen möglich?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread