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