externes Program schliessen

Bild

Betrifft: externes Program schliessen von: Georg
Geschrieben am: 15.02.2005 15:03:20

Hallo alle zusammen,

ich möchte per VBA ein externes Programm schliessen.

Das Programm heisst übertragungcom1.exe.

Könnte mir da jemand helfen.

Vielen Dank im voraus.

Georg

Bild


Betrifft: AW: externes Program schliessen von: Jens
Geschrieben am: 15.02.2005 15:20:42

Wurde das Programm auch mit VBA geöffnet?

mfg Jens


Bild


Betrifft: AW: externes Program schliessen von: Georg
Geschrieben am: 15.02.2005 15:31:34

Hallo Jens,

ja, mit dem Befehl
Dim dblResult
dblResult = Shell ("C:\Programme\8300\übertagungscom1.exe"; 1)


mfg
Georg


Bild


Betrifft: AW: externes Program schliessen von: Jens
Geschrieben am: 15.02.2005 16:18:28

Sorry, finde den Code nicht mehr und aus dem Kopf bekomme ich die API-Deklarationen nicht zusammen.

mfg Jens


Bild


Betrifft: AW: externes Program schliessen von: Georg
Geschrieben am: 15.02.2005 16:32:46

vielen Dank trotzdem


Bild


Betrifft: AW: externes Program schliessen von: bst
Geschrieben am: 15.02.2005 16:46:34

Auch Hallo,

a) via externem Tool pskill von http://www.sysinternals.com


Sub KillIt()
   Shell "Notepad.exe", 1
   ' ...
   Shell "c:\DeinProgUti\pskill.exe notepad.exe"
End Sub


b) via winapi:

die "Declares" und "Functions" gehören in EINE Zeile, kein Plan was hier passiert ...

Übrigens, IMHO kann sich niemand sowas merken. Ich suche of hier:

http://www.mentalis.org/agnet/apiguide.shtml

cu, Bernd
--
Option Explicit

Declare

Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
         
Declare 

Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Declare 

Function TerminateProcess Lib "kernel32" _
   (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
   
Private Const PROCESS_TERMINATE = &H1

Sub KillIt_2()
   Dim iTask As Long, pHandle As Long
   iTask = Shell("Notepad.exe", 1)
   ' ...
   pHandle = OpenProcess(PROCESS_TERMINATE, False, iTask)
   ' ...
   TerminateProcess pHandle, 0
   CloseHandle pHandle
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "externes Program schliessen"