OberonCore

MODULE DemoExcelTable;

  IMPORT
    Excel := CtlExcel9, CtlT;
   
  VAR
    app: Excel._Application;

  PROCEDURE DoExport*;
  VAR
    book: Excel._Workbook;
    sheet: Excel._Worksheet;
    a: ARRAY 2, 2 OF REAL;
  BEGIN
    IF app = NIL THEN
      app := Excel.NewApplication()
    END;
    app.PUTVisible(TRUE);
   
    book := app.Workbooks().Add(NIL);
    IF book # NIL THEN
      sheet := Excel.This_Worksheet(book.Worksheets().Item(CtlT.Int(1)));
      a[0, 0] := 1.1;
      a[0, 1] := 2.2;
      a[1, 0] := 3.3;
      a[1, 1] := 4.4;
     
      sheet.Cells().PUTItem(CtlT.Int(1), CtlT.Int(1), CtlT.Str("Массив 2x2"));
      sheet.Range(CtlT.Str("A2"), CtlT.Str("B3")).PUTValue(CtlT.RealArr2(a));
    END;
   
  END DoExport;

END DemoExcelTable.