Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige