[freedomman]

когда то писал импорт из exsel в table, может поможет

Код:

var
  Excel:Variant;
  i:integer;
 XL: variant;
begin
  XL := CreateOleObject('Excel.Application');
       XL.DisplayAlerts := false;
    XL.WorkBooks.Add;
      XL.WorkBooks.Open(OpenDialog2.FileName);
  for i:=1 to n do
      begin
 ZTable1.Append;
   ZTable1.FieldByName('dens').AsVariant:=XL.Cells[i, 1].Value;
 ZTable1.FieldByName('speedhor').AsVariant:=XL.Cells[i, 2].Value;
   ZTable1.FieldByName('intensity').AsVariant:=XL.Cells[i, 3].Value;
   ZTable1.FieldByName('intensitydoor').AsVariant:=XL.Cells[i, 4].Value;
 ZTable1.Post;
end;