Excel-



. [Ctrl/Alt/Del]


procedure OpenExcelBook;
var
VExcel: Variant;
begin
try
//,    Excel
VExcel := GetActiveOleObject('Excel.Application');
except
// ,  
on EOLESysError do
VExcel := CreateOleObject('Excel.Application');
end;
with VExcel do
begin
Visible := True;
// Excel   
WindowState := -4137;
//   
VExcel.DisplayAlerts := False;
//  
WorkBooks.Open('C:\Temp\MyBook.xls');
//   
WorkSheets[1].Activate;
end;
end;


: Microsoft Word »»