Как открыть 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 »»