[fofka]

Страдалецъ, Благодарю за помощь. Все заработало. Сделал как Вы подсказали и все пошло. Импорт данных работает. Для подключения Excel взял Ваш код, а импорт из примера.

Код:

implementation

 Const
  Excel2007Connection = 'Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=%s';

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   ADOConnection1.Connected:=False;
   Windows.MessageBeep(MB_ICONINFORMATION);
   OpenDialog:= TOpenDialog.Create(self);
   OpenDialog.InitialDir := '';
   OpenDialog.Filter := 'Microsoft Excel 2003 (*.xls)|*.xls';
    if OpenDialog.Execute then
      begin
     FName1 := OpenDialog.FileName;
     LabeledEdit1.Text:=ExtractFileName(FName1);
    ADOConnection1.ConnectionString := Format(Excel2007Connection, [''+LabeledEdit1.Text +'']);
    ADOConnection1.Connected:=True;
    try
   AdoVer:=ADOConnection1.Provider;
   AdoConnection1.Connected:=true;
    except
   ADOConnection1.Connected:=false;
   showmessage('ООшибка подключения.'+ #13 +
   'Ожидаемая версия"' + AdoVer + '"провайдера отличается от текущей');
   Application.Terminate;
  end;
 end;
end;

Прицепил рабочий проект. Мало ли кому сгодится.