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
Sub Programm_abschiessen()
Const STRPC As String = "."
Dim objWMI As Object, objProcesses As Object, objProcess As Object
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
End Sub
wenn du mir noch weiterhelfen könntes, wäre ich die dankbar.
Gruß
Karsten
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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Programm_abschiessen
End Sub
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