Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

externes Program schliessen

Forumthread: externes Program schliessen

externes Program schliessen
15.02.2005 15:03:20
Georg
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: externes Program schliessen
Jens
Wurde das Programm auch mit VBA geöffnet?
mfg Jens
AW: externes Program schliessen
Georg
Hallo Jens,
ja, mit dem Befehl
Dim dblResult
dblResult = Shell ("C:\Programme\8300\übertagungscom1.exe"; 1)
mfg
Georg
AW: externes Program schliessen
Jens
Sorry, finde den Code nicht mehr und aus dem Kopf bekomme ich die API-Deklarationen nicht zusammen.
mfg Jens
Anzeige
AW: externes Program schliessen
Georg
vielen Dank trotzdem
AW: externes Program schliessen
bst
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige