OberonCore

   IMPORT   CtlExcel := CtlExcel9;

   PROCEDURE ...
   VAR
      excel: CtlExcel.Application;
   BEGIN
      excel := CtlExcel.NewApplication();
      ...

   PROCEDURE KillExcel;
      VAR
         h, ph: WinApi.HANDLE;
         res: WinApi.BOOL;
         entry: WinTlhelp.PROCESSENTRY32W;
   BEGIN
      h := WinTlhelp.CreateToolhelp32Snapshot(WinTlhelp.TH32CS_SNAPPROCESS, 0);
      ASSERT(h # -1, 100);   (* Получили снимок процессов *)
      entry.dwSize := SIZE(WinTlhelp.PROCESSENTRY32W); res := WinTlhelp.Process32FirstW(h, entry);
      IF res = WinApi.TRUE THEN
         ASSERT(entry.dwSize = SIZE(WinTlhelp.PROCESSENTRY32W), 101)   (* Можем читать имя *)
      END;
      WHILE res = WinApi.TRUE DO
         (* StdLog.String(entry.szExeFile); StdLog.Ln; *)
         MtStrings.ToUpper(entry.szExeFile, entry.szExeFile);
         IF entry.szExeFile = "EXCEL.EXE" THEN
            ph := WinApi.OpenProcess(WinApi.PROCESS_TERMINATE, WinApi.FALSE, entry.th32ProcessID);
            ASSERT(ph # 0, 102);   (* Процесс "открылся" *)
            res := WinApi.TerminateProcess(ph, 0);
            ASSERT(res # 0, 103);   (* Процесс убился *)
            res := WinApi.CloseHandle(ph);
            ASSERT(res # 0, 104);   (* Дескриптор удалился *)
         END;
         res := WinTlhelp.Process32NextW(h, entry)
      END;
      ASSERT(WinApi.GetLastError() = WinApi.ERROR_NO_MORE_FILES, 105);   (* Чтение списка процессов завершилось успешно *)
      res := WinApi.CloseHandle(h);
      ASSERT(res # 0)   (* Дескриптор удалился *)
   END KillExcel;

//код вне класса ExcelWork
bool result = false;
ExcelWork ew = new ExcelWork(this);
result = ew.GenExcel(gr, ods, GenPaged);
ew = null;
GC.Collect();
return result;

//метод класса ExcelWork
private void NAR(Object o)
{
        try{
              System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
        }
        finally{
                o = null;
        }
}

//метод класса ExcelWork
Excel.Application excelApp = null;
Excel.Workbook wbk = null;

try
{
        excelApp = new Excel.Application();
        excelApp.UserControl = false;
        excelApp.DisplayAlerts = false;
        wbk = excelApp.Workbooks.Add(Missing.Value);
...............

        wbk.Close(false,Missing.Value,Missing.Value);
        NAR(wbk);
        excelApp.Quit();
        NAR(excelApp);
        GC.Collect();
        GC.WaitForPendingFinalizers();
}
catch(Exception e)
{
...............

MODULE ExamplesExcel;

IMPORT   CtlExcel := CtlExcel9, Kernel;

PROCEDURE OpenClose*;
VAR
   excel: CtlExcel.Application;
BEGIN
   excel := CtlExcel.NewApplication();
   excel.PUTVisible(TRUE);
   excel.Quit;
   excel:=NIL;
   Kernel.Collect;
END OpenClose;

END ExamplesExcel.

^QExamplesExcel.OpenClose

   PROCEDURE OpenClose*;
      VAR
         excel: CtlExcel.Application;
         wb: CtlExcel.Workbook;
   BEGIN
      excel := CtlExcel.NewApplication();
      excel.PUTVisible(TRUE);
      wb := excel.Workbooks().Open("E:\workbook.xls", NIL, NIL, NIL, NIL, NIL, NIL, NIL, NIL, NIL, NIL, NIL, NIL);
      excel.Quit;
      wb := NIL; excel:=NIL;
      Kernel.Collect;
   END OpenClose;

wbks: CtlExcel.Workbooks;
.....................
wbks := excel.Workbooks();
wbks.Close();
wbks := NIL;
.....................

VAR
  app: CtlExcel.Application;
  .....

   PROCEDURE Exit*;
   BEGIN
      app:= NIL;
      HostMenus.Collect;
   END Exit;

MODULE TestExcel;

   IMPORT
      CtlT, Excel := CtlExcel9, StdLog, Services;

   TYPE

      Action = POINTER TO RECORD (Services.Action) END;

   VAR
      app: Excel.Application;
      ws: Excel.Worksheet;
      wb: Excel.Workbook;
      action: Action;
      range: Excel.Range;
      N: INTEGER;

   PROCEDURE (action: Action) Do;
   BEGIN
      N:= ws.Range(CtlT.Str("A1"), CtlT.Str("A1")).Value().Int();
      Services.DoLater(action, Services.Ticks() + 1000)
   END Do;

   PROCEDURE Start*;
   BEGIN
      app := Excel.NewApplication();
      app.PUTVisible(TRUE);
      app.PUTDisplayAlerts(FALSE);
      wb := app.Workbooks().Add(NIL);
      ws := Excel.This_Worksheet(wb.Worksheets().Item(CtlT.Int(1)));
      range := ws.Range(CtlT.Str("A1"), NIL);
      range.PUTValue(CtlT.Int(12345));
      NEW(action);
      Services.DoLater(action, Services.now)
   END Start;

   PROCEDURE Stop*;
   BEGIN
      Services.RemoveAction(action);
      action := NIL;
      app.Workbooks().Close();
      ws := NIL;
      wb := NIL;
      app.Quit;
      app := NIL;
   END Stop;
   

END TestExcel.