Ипорт из экселя в акссес

[Власов А.С.]

Добрый день!
Люди подкиньте литературы по ипорту из экселя в базу акссеса. Если есть исходники то дайте посмотреть. За ранее благодарен.

[vovk]

Вообщето в акцесс и так есть возможность импортировать из эксель.. Но уж если надо сделать в приложении, то и к акцесовской базе, и к экселю можно подключится с помощью ADO. А там просто работать как с таблицами в любой бд. Ну есть ещё возможность работать с экселем через оле, но так по моему должен быть установлен пакет MSOffice..

[Власов А.С.]

А можно небольшо примерчик

[vovk]

Сегодня уже не получится, спать уж очень сильно хочется, если завтра ещё интерестно будет, то вечером накидаю примерчик..

[Власов А.С.]

Вот экселевский файлик желтые поля это нужно импортировать в базу акссеса.

[Власов А.С.]

Конечно интересно. За ранее благодарен!!!

[vovk]

Я то думал данные в табличной форме. Вчера вечером накидал уже почти целый конвертер с возможностью создания таблиц выбора полей и тп
А тут вот скорее всёго что нужно

uses  comobj;
.....
var
e, book,list :variant;
opdlg:TOpenDialog;
begin
 opdlg := TOpenDialog.Create(nil);
 try
if OpenDialog1.Execute then
   begin
            try
             E:=CreateOleObject('Excel.Application');
             book:=E.Workbooks.Open(OpenDialog1.FileName);
            // list:=book.Sheets.Item['Лист1'];//это по имени листа
               list:=book.Sheets.Item[1];//так по номеру
             edit1.Text:=list.cells.item[7, 2].value; //отсчёт ячеек начинается с 1
            finally
              E.Workbooks.close;
            end;
  end;
 finally
   opdlg.Free;
 end;
end;

также читай данные, с остальных нужных ячеек, и записывай куда нужно, впеременные или сразу в таблицу экселевскую.

[Власов А.С.]

Ну коль накидал примерчики подилесь пожалуйста.

[vovk]

До дома доберусь скину. только если применять постоянно, тогда доработать нужно будет.. Если пригодится и понравится, думаю что даработаете.

[Власов А.С.]

Ок спасибо мне главное на примере понять смысл импорта, как я жалею что пошел на буха учться. Мне нравиться заниматься программированием. Ну кончно посвоему. (по тупому для вас для меня это прогресс)