Exe starten bzw beenden



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Exe starten bzw beenden
von: HeinoB.
Geschrieben am: 15.05.2002 - 04:09:22

Hallo
Ich möchte mit einer Exeltabelle das Programm S5W starten und beim schliessen der Arbeitsmappe wieder beenden.
Das Starten mache ich mit folgender Funktion:

Private Sub Workbook_Open()
Dim Ergebnis, I
Ergebnis = Shell("C:\Programme\S5W\s5w.EXE", 1)
AppActivate Ergebnis
End Sub

Das Klappt soweit ganz gut.
Leider habe ich keine Idee wie ich beim schliessen der Arbeitsmappe das Programm wieder beenden kann.
Ich habe es mal mit folgender Funktion versucht:

Dim Ergebnis, I
Ergebnis = Shell("C:\Programme\WinZip\WINZIP32.EXE", 1)
SendKeys "%{F4}", True
Application.DisplayAlerts = False
Application.Quit

Leider startet das Programm dann ein zweites mal.Und wird nur einmal geschlossen.
Bei Programmen die nur einmal starten können wie z.B Winzip Funktioniert das.
Ich hoffe es gibt eine passende Funktion.
Gruß Heino

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Exe starten bzw beenden"