Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
396to400
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
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Exterens Programm aufrufen und schliessen

Exterens Programm aufrufen und schliessen
16.03.2004 19:32:53
Tobias
Hallo,
ich moechte aus meinem VBA Script aus ein externes Programm aufrufen. Sobald es aufgerufen wird, fuerht es automatisch einen Script aus. Danach moeche ich das Programm wieder schliessen. Kann mir da jemand ein Buch oder eine Seite empfehlen, wo ich das nachlesen kann, wie es funktioniert? Oder existiert da schon ein kompletter Script den ich benutzen kann?
Danke fuer die Hilfe
Tobias

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

Betreff
Datum
Anwender
Anzeige
AW: Exterens Programm aufrufen und schliessen
16.03.2004 20:09:32
Nepumuk
Hallo Tobias,
was ist das für ein Programm, eine .EXE / .BAT / .INI oder so etwas in der Art?
Gruß
Nepumuk
AW: Exterens Programm aufrufen und schliessen
16.03.2004 20:32:37
Tobias
Es ist eine exe Datei
AW: Exterens Programm aufrufen und schliessen
16.03.2004 21:18:37
Nepumuk
Hallo Tobias,
starten kannst du die Datei beispielsweise so:
Shell "C:\Programme\Zone Labs\ZoneAlarm\zonealarm.exe"
Beenden ist etwas schwieriger:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Sub CloseWindow()
SendMessage FindWindow(vbNullString, "Test.txt - Editor"), &H10, 0, 0
End Sub


Code eingefügt mit: Excel Code Jeanie
Den korrekten Namen des Programmfensters holst du dir am besten aus dem Taskmanager - Anwendungen.
Gruß
Nepumuk
Anzeige
AW: Exterens Programm aufrufen und schliessen
16.03.2004 21:49:05
Tobias
Hallo Nepumuk,
vielen Dank erst mal. Du hast mir da schon wahnsinnig weiter geholfen. Jetzt habe ich aber noch 2 kleine Fragen. Wie kann ich zwischen dem oeffnen und dem schliessen dem pogramm ca. 2 bis 3 sekunden Zeit geben, den script auszufuehren? Und die 2. Frage. Das Programm bringt beim beenden immer eine Abfrage die man mit OK anklicken beantworten muss. Hast du dafuer eine Loesung?
Aber wie gesagt, schon mal vielen Dank fuer deine Hilfe
Tobi
AW: Exterens Programm aufrufen und schliessen
16.03.2004 22:01:29
Nepumuk
Hallo Tobias,
wartenlassen und Enter drücken geht so (wobei ich davon ausgehe, dass du auch mit der Enter-Taste bestätigen kannst [sonst wird es kompliziert]):

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub test()
Shell ...............
Sleep 3000
SendMessage .............
SendKeys "~"
End Sub


Code eingefügt mit: Excel Code Jeanie
Das drücken der Entertaste per Programm funktioniert aber nur, wenn die MsgBox die du bestätigen musst im Vordergrung steht. Sollte dem nicht so ist, kann sie per Programm den Fokus erhalten.
Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige