OLE Excel beenden

[Sidores]

Moin,
ich muss vorhandene Excel Tabbelle erweitern.
Ist ja eigentlich kein Problem, doch wie kann ich excel dann richtig schließen(ist immer noch in der Prozzese-Liste des TaskManagers)
Ich wollte das so machen:

Code:

Unit1.excel := CreateOleObject('Excel.Application');
 //Lade die Datei,fügen Daten hinzu,und speichere
Excel.Workbooks.close;
excel.Quit;

Wieso geht das nicht?

Danke

[APP]

Hallo Sidores,
das mit dem OLE-Excel ist eine eigene Wissenschaft, ich helfe mir dabei so:

Delphi-Quellcode:

  TRY
    WS.Disconnect;  // Worksheet
    WBk.Disconnect; // Workbook
    ExcelApp.Quit;  // Excel
    ExcelApp.Destroy;
  EXCEPT
    ...
  END

[Sidores]

Dann kommt folgende Fehlermeldung

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EOleError aufgetreten. Meldung: 'Die Methode 'Destroy' wird vom Automatisierungsobjekt nicht unterstützt'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

[APP]

Hallo Sidores,
ich benutze die Komponenten vom Reiter "Servers", dort gibt es dann die Methode Destroy.

p.s.
Mein Projekt ist schon ein Weilchen her, daher kann icch mich nur wage erinnern,
dass ich auf die Serverkompos gekommen bin, weil ich mit "CreateOleObject" ähnl.
Schwierigkeiten hatte wie Du.

[neolithos]

eigentlich fehlt oben nur ein

Delphi-Quellcode:

excel := Unassigned;

Denke ich!

[Niko]

Die Zuweisung von Unassigned hat keinen Einfluss auf Excel, sondern kennzeichnet die Variable nur als unbelegt.
@Sidores: Eigentlich sollte deine Lösung funktionieren, aber probier mal Excel.Application.Close.

[neolithos]

Nicht nur das sondern es wird auch der ReferenzCounter des Schnittstellen-Objectes um eins gesenkt.

Was zur folge hat das Excel beendet werden kann!

So war es bei mir!

[Sidores]

@Niko Jetzt kommt auch ne Fehlermeldung, nur mit der Methode 'Close'

[Sidores]

Es geht:

Code:

Unit1.excel := CreateOleObject('Excel.Application'); 
 //Lade die Datei,fügen Daten hinzu,und speichere 
Excel.Workbooks.close; 
Excel.Application.Quit;

Hätte ich auch früher drauf kommen können.
Danke für die Antworten

[Niko]

Entschuldigung, mein Fehler. Ich wollte eigentlich auch Application.Quit schreiben :oops: .