Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige