Импорт из Excel в DBGridEh

 procedure ConnectToExcel;
procedure TForm1.ConnectToExcel;
var strConn: widestring;
begin
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' +Edit1.Text+ ';' +
'Extended Properties=Excel 8.0;';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
try
AdoConnection1.Open;
except
ShowMessage('Не могу соединиться с Excel книгой, которая расположена по адресу: '+Edit1.Text+' !');
raise;
end;
end;
 
procedure TForm1.FetchData;
begin
ConnectToExcel;
AdoQuery1.Close;
AdoQuery1.SQL.Text:=Edit2.Text;
try
AdoQuery1.Open;
except
ShowMessage( 'Не могу выполнить Sql запрос ' + Edit1.Text +'!');
raise;
end;
end;

Uses ComObj;
 
const xlCellTypeLast=$000000B;
var
excel:OLEVariant;
i, j, id,  idauto, god:integer;
name:string;
begin
excel :=CreateOleObject('Excel.Application');
excel.DisplayAlerts :=False;//отключаем запросы Excel
if not Dialog1.Execute then Exit;
try
excel.workbooksOpen(OpenDialog1.FileName); //открываем книгу Excel
i :=2;   //считываем данные со 2-й строки книги (или нужной Вам)
j := excel.ActiveCell.SpecialCells(xlCellTypeLast).Row;// последняя непустая строка
  // Процедура загрузки
   while i<>j do begin //до последней заполненной строки Excel документа
  id :=excel.cells[i,1].value; //считываем значение 1-й колонки (если оно берется из файла), 
                                // это зависит от нумерации колонок с Вашими данными
  idauto :=excel.cells[i,2].value; //2-й колонки (id машины)
  name :=excel.cells[i,3].value; //3-й… (название)
  god:=excel.cells[i,4].value;  // (год выпуска)
 with ADOTable1 do
begin
 Insert; // соответственно добавляем значения
//в поля таблицы БД
  FieldByName('ID').AsInteger :=id; 
  FieldByName('ID_AUTO').AsInteger :=idauto;
  FieldByName('NAME').AsString :=name;
  FieldByName('GOD').AsInteger :=god; //отдельно год
   end;  
  inc(i); //переходим на следующую строку в Excel
……
  end;
……
    Excel.ActiveWorkBook.Close;
    Excel.Quit; // после завершения работы закрываем объект Excel
    Excel:=Unassigned;
    except;
  end;
  end;

excel.workbooksOpen(dlgOpen1.FileName);

Excel.WorkBooks.Open(dlgOpen1.FileName);

procedure TfrmMain.btnImportClick(Sender: TObject);
 const xlCellTypeLast=$000000B;
  var
  excel:OLEVariant;
  i, j, id:integer;
  s1:string;       // , s2, s3, s4, s5
  s2: Integer;
  s3: string;
begin
 excel :=CreateOleObject('Excel.Application');
  excel.DisplayAlerts :=False; 
  if not OpenDialog1.Execute then Exit;
    try
     Excel.WorkBooks(OpenDialog1.FileName);  
     i :=1;  
     j := excel.ActiveCell.SpecialCells(xlCellTypeLast).Row; 
      while i<>j do
      begin
        s1 :=excel.cells[i,1].value; 
        s2 :=excel.cells[i,2].value; 
        s3 :=excel.cells[i,3].value;  
        qryTovar.Insert;  
        //в поля таблицы БД
        qryTovar.FieldByName('t_id').AsInteger := id;
        qryTovar.FieldByName('t_name').AsString :=s1;  //t_id
        qryTovar.FieldByName('t_kol_vo').AsInteger :=s2;
        qryTovar.FieldByName('t_price').AsString :=s3;
        inc(i); //переходим на следующую строку в Excel
        qryTovar.Post; // Думаю что Post тоже надо 
      end;
    excel.Quit;  
    excel:=Unassigned;
    except
 
    end;
end;
 
end.

 while i<>j+1 do
...