Вывод данных из DBrida в уже существующую таблицу Excel

[ins813]

Немного подразобрался,вот код
Код Delphi
var
exApp, exBook, exSheet, exRng, exRngTop,v : Variant;
i, Cnt, Row : Integer;
Dt1, Dt2 : TDateTime;
begin
//Подключение к БД.
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='SELECT date,time,name,ed_izm,kol_vo,street ,predpr FROM dbo.material';
ADOQuery1.Active:=true;
//Запускаем и подключаемся к экземпляру MS Excel.
exApp := CreateOleObject('Excel.Application' );
//Делаем окно MS Excel видимым.
exApp.Visible := True;
//Создаём рабочую книгу и получаем ссылку на её интерфейс.
//exBook := exApp.WorkBooks.Add;//

exApp.WorkBooks.Open('d:\1.xls'); // открываем существующий файл

//Ссылка на первый лист рабочей книги.
exSheet := exBook.WorkSheets[1];// - Вот сдесь выдает ошибку

First chance exception at $75439617. Exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process Project1.exe (5948)

Если Создаю новую книгу, то все ОК, если загружаю существующую то выскакивает Ошибка выше.