Andere Anwendungen mittels Makro schließen lassen?

Computer: Software & Programmierung Office Software
1

Hallo,

Ist es möglich eine Anwendung, die ich von Excel aus mittels

Beispiel.:–>
PRGAUFRUF = Shell(„c:\EXCEL\EXCEL.EXE“,1)

aufgerufen habe irgendwie beenden?

Mit FatalExit (Kernel32) habe ich das schon mal probiert, leider schliesst der Befehl scheinbar nur Excel selber???

hier mein Beispiel mit Fatal-Exit:

Handle = OpenProcess(SYNCHRONIZE, False, Task)
FatalExit (Handle)

Gibt es hier Möglichkeiten??

(auch mit anderen Befehlen z.B. Quit der Exit ander Anwendungen zu schließen, (die ich ja auch selbst von Excel aus aufgerufen habe)

Mit freundlichem Gruß (Nobber)

2

Hallo,

wenn es sich bei der anderen Anwendung um Office-Anwendungen (wie halt eben Excel) handelt, solltest Du vielleicht einen anderen Weg gehen, um die Anwendung zu starten. Dann kannst Du sie auch einfacher wieder beenden. Ich mach Dir ein Beispiel:

Public Sub Makro1()
 Dim xlApp As Excel.Application
 Set xlApp = CreateObject("excel.application")
 With xlApp
 .Visible = True 'macht die Sitzung sichtbar
 .Workbooks.Open "C:\Temp\Beispiel.xls" 'öffnet eine Datei
 With .ActiveWorkbook
 'mach irgendwas, hier kommt Dein Code rein...
 .Save 'speichert die Datei
 End With
 .Quit 'beendet die Sitzung wieder
 End With
 Set xlApp = Nothing
End Sub

Gruß
(Woly)