try
   v := CreateOleObject('Excel.Application');
   v.Workbooks.Open[edit1.text];//edit1.text-имя файла
   records:= 2 ;// номер первой записи
   repeat
    sqInsert.Edit;
    sqInsert.Insert;
    OraSQL4.Execute;
    sqInsert.FieldByName('in_num').Asstring := inttostr(v.Range['a'+inttostr(records)].value);
    sqInsert.FieldByName('data').Asdatetime := strtodate(v.Range['b'+inttostr(records)]);
{...................}
    sqInsert.Post;
    inc(records);
   until (v.Range['a'+inttostr(records)].value= 0 );
   v.Workbooks.close;
   except
     on exception do
      begin
       closewait;
       Showmessage('Ошибка импорта : '+edit1.text);
      end;
   end;
 end;