---

Hallo zusammen,
manchmal finde ich über den Taskmanager ein Excel das aber nur, warum auch immer, nicht richtig beendet wurde.
Natürlich lässt sich dieser Task einfach beenden aber wenn ich aus Lisp auf Excel zugreifen möchte bekomme ich dann genau dieses untote Excel.
Also Taskmanager aufrufen, dieses Excel beenden und alles nochmal starten.
Das nervt.

Ich habe schon versucht das Ding mit Quit zu beenden, funktioniert ja bei "lebendem" Excel, hier leider nicht.
Ich kann dort auch arbeiten (Workbooks erstellen, Daten eintragen, usw.) nur beenden kann ich das eben nur über den Taskmanager.

Ich hab auch rausgefunden wie ich erkenne ob das Excel gestorben ist, aber beenden und mit dem "lebenden" Excel weitermachen geht nicht.
(vlax-invoke-method excel "Quit") funktioniert bei diesem Excel nicht.
Alles andere geht.
(vla-put-visible excel 1)
(VLAX-INVOKE-METHOD Workbooks "Add")
Alles kein Problem aber das ist ja nicht die aktuell geöffnete Excel-Datei, also nutzlos.

Hat jemand eine Idee wie ich das Ding killen kann ?

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo,

in der Kommandozeile kannst du Prozesse mit TASKKILL beenden.

Mit einem (STARTAPP "cmd /c TASKKILL...") (oder zur Not evtl. sowas wie DOSLib oder eine temporäre Batch-Datei) sollte das dann funktionieren.

Gruß
Stefan

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

---

Ich hab noch was im Sumpf gefunden.
Probier das mal beim Schließen von Excel aus

Code:

---

(vl-catch-all-apply 'vlax-invoke-method (list BookObj "Close" :vlax-false))

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hm ...
Ich habe TASKKILL mit verschiedensten Ideen auf den Weg geschickt und ich habs jetzt    .

Hier etwas Lisp mit dem es funktioniert.
Hab ich grade eben zusammengestückelt, muss das noch in schön machen   

Appli? hab ich mir mal irgendwo runtergeladen und die Rückgabe um die Prozess-ID ergänzt.

Code:

---

(defun k_collection->list (collection / liste)
;;; gibt eine VLA-Collection als Liste zurück
  (cond
    ((member "VLA-COLLECTION->LIST" (atoms-family 1))
     (setq liste (VLA-COLLECTION->LIST collection))
    )
    ((member "VLAX-FOR" (atoms-family 1))
     (setq liste (list))
      (vlax-for dummy collection
        (setq liste (cons dummy liste))
      )
       (reverse liste)
    )
  )
  liste

)
(defun Appli? (/ apps item lst meth1 meth2 WMI)
  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
        meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
        meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process")
  )
  (setq lst (mapcar '(lambda (item)
                             (list (vlax-get item 'CommandLine) (vlax-get item 'processID))
                     )
                    (vl-remove-if-not '(lambda (process) (vlax-get process 'CommandLine)) (k_collection->list meth2))
            )
  )
  (vlax-release-object WMI)
  (vlax-release-object meth1)
  (vlax-release-object meth2)
  lst
)

(if (and (setq process-id (cadr (car
                                    (vl-remove-if-not '(lambda (data)
                                                              (wcmatch (strcase (car data)) "*EXCEL*")
                                                      )
                                                      (Appli?)
                                    )
                                  )
                            )
          )
          (setq excel (vlax-get-object "excel.application"))
          (= (vla-get-visible excel) :VLAX-FALSE)
          (null (vlax-get-property
                  excel
                  "ActiveWorkbook"
                )
          )
      )
    (progn
      (vlax-release-object excel)
      (startapp (strcat "cmd /c TASKKILL /PID " (itoa process-id) " /F"))
    )
  )

---

EDIT: grade gemerkt ... ist noch nicht zu 100% ok   , ist aber kurz vorm Ziel
Nochmal EDIT: Habs im Code geändert, jetzt sollte das passen

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 23. Apr. 2025 editiert.]

[Diese Nachricht wurde von Andreas Kraus am 23. Apr. 2025 editiert.]

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

---

Hallo Andreas,
danke für Deine Ausführungen. Ich habe für mich das noch ein bißchen abgewandelt. Damit kann ich dann beim Programmieren meine Excel-Leichen aus dem Task-Manager aufräumen, die ich per COM gestartet habe. Alle anderen Excel-Tasks bleiben erhalten.
Im Schnelltest hatte es funktioniert:

Code:

---

(defun c:KillExcelByComTasks ( / )
  (foreach X
  (vl-remove-if-not '(lambda (data)
(wcmatch (strcase (car data)) "*EXCEL*AUTOMATION -EMBEDDING*")
)
    (Appli?)
    )
    (setq excel (vlax-get-object "excel.application"))
    (setq process-id (cadr X))
    (vlax-release-object excel)
    (startapp (strcat "cmd /c TASKKILL /PID " (itoa process-id) " /F"))
    )
  )

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Der Multifilter (V 1.1)

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

---

Hab nach Taskkill noch ein "schaltbares" Delay eingebaut.
Wenn ich einfach nur killen möchte brauch ich das nicht aber wenn ich mit (setq excel (vlax-get-or-create-object "excel.application")) sofort danach ein neues Excel starten will, hat das eben nicht funktioniert.
Mit einem Delay von 1-2 Sekunden gehts.
Hab jetzt keine Lust weiter zu forschen, jetzt gehts ja.

Schalten kann ich dann ob ich ein Delay möchte/brauche oder nicht

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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