Как открыть Excel-евский файл

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;