Курсовая работа: Система учёта бракованной продукции (MSAccess, Delphi, ER-Win)

Was:= true;

except

// Hет, еще нет...

try

XL:=CreateOleObject('Excel.Application');

Was:= false;

except

ShowMessage('Не удалось запустить Excel');

Abort;

end;

end;

if filename='Default' then XL.Workbooks.add else XL.Workbooks.open(Filename);

c:= XL.Workbooks.Count;

WB:= XL.Workbooks[c];

WS:= WB.Worksheets[list];

result:=WB.Worksheets.Count;

end;

procedure TlipExcel.Excel_List(List:integer);

begin

WS:= WB.Worksheets[list];

end;

procedure TlipExcel.Excel_Show(visible:boolean);

begin

XL.visible:=visible;

end ;

procedure TlipExcel.Excel_Prn;

begin

WS.printout;

end;