Var
  WorkBook: IXLSWorkbook;
begin
  WorkBook := TXLSWorkBook.Create;
  WorkBook.Open('book.xls');
  DBGrid2Excel1.Worksheet := WorkBook.Sheets.Add;
end;