---

Hallo zusammen!

Ich möchte aus einem VBA - Programm ein externes Programm öffnen und wieder schließen, z.B. "notepad.exe".

Öffnen über:

Code:

---

Dim Ergebnis
Ergebnis = Shell("C:\Windows\notepad.exe", vbNormalFocus)

---

Wie schließ ich das Programm wieder ohne wenn und aber?
Es brauch keine Abfrage speichern Ja / Nein erfolgen.

Hierzu habe ich zwar Dinge / Infos gefunden, wie:

Code:

---

Private Declare Function SendMessage Lib "user32"
...
...

---

Gibt es da nicht etwas kurz und knappes wie z.B

Code:

---

Ergebnis.Kill 'dieses funktioniert leider nicht

---

Vielen Dank im voraus.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dirk,

Probiers mal so:

Code:

---

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10

Public Sub Kill()
Dim Ergebnis
Ergebnis = Shell("C:\Windows\notepad.exe", vbNormalFocus)
    Dim WinWnd As Long

    WinWnd = FindWindow(vbNullString, "Unbenannt - Editor") ''Name in "" muss passen!

    If WinWnd <> 0 Then
        PostMessage WinWnd, WM_CLOSE, 0&, 0&
    Else
        MsgBox "No window of that name exists."
        End If

End Sub

---

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten!

Danke für die schnelle Hilfe.
Es funktioniert.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP