экспорт из Excel в БД

[Tanuska___:)]

Как экспортировать содержимое Excel в таблицу access
есть ли в делфи 7 какие нибудб компоненты или функции?
нужно очень ... так как данные обновляются в Excel а работает приложение с access

[Rik]

Используйте OLE. Создаете экземпляр Excel, загружаете в него ваш файл, построчно перебираете в Excel строки и обновляете данные в таблице Access.
var XLS, Sheet: variant;
begin
XLS := CreateObject('Excel.Application');
XLS.WorkBooks.Open['Ваш файл.xls'];
Sheet := XLS.Sheets.Items[1];
DataSet.Append;
DataSet.FieldByName('FFFF').VAlue := Sheet.Cells[3, 4].Value;
......
DataSet.Post;
XLS.ActiveWorkbook.Close;
XLS.Application.Quit;
end;

[Tanuska___:)]

я решила сделать немного по другому и перевела файл Excel в *.csv
и делаю как то так:

  for i := 8 to ListBox1.Count-1 do begin
     s := ListBox1.Items.Strings[i];
    for j := 1 to 13 do begin
      c := 0;
 while s[length(s)]<>';' do begin
        SetLength(s,length(s)-1);
        c := c+1;
      end;
        a[j] := Copy(ListBox1.Items.Strings[i],length(s)+1,c);
        SetLength(s,length(s)-1);
    end;
    a[14] := s;

  for k := 2 to ListBox2.Count-1 do begin
    s := ListBox2.Items.Strings[k];
    for k1 := 1 to 42 do begin
      c := 0;
 while s[length(s)]<>';' do begin
        SetLength(s,length(s)-1);
        c := c+1;
      end;
        b[k1] := Copy(ListBox2.Items.Strings[i],length(s)+1,c);
        SetLength(s,length(s)-1);
    end;
    b[43] := s;

 end;
 end;

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

[Stilet]

Все еще проще
В Экзеле есть импорт внешних данных. Там указывается провайдер, база, запрос. данные выдергиваются из БД, причем их можно переобновить.

[Tanuska___:)]

а поподробнее нельзя ?

[Stilet]

Можно.
Открываешь Экзель
1. Меню Данные-Импорт внешних данных
2. Создать
3. Выбереш тип (еси это Акцесс то ODBC выбирай)
4. Далее тип (БД MS Access)
5. Выбереш файл с базой
6. Выбераешь таблицу

Потом при желании можно даже SQL запрос сформировать в том же Экзеле )

[Tanuska___:)]

помойму вы не читали мой вопрос так как я спрашивала не про то как из БД в екзель выгружать данные а совсем наоборот!!!!
Конечно за информацию спб может даже и пригодиться когда нибудь ...
но вопрос так и не разрешился

[Stilet]

Ну эта же операция только обратно.
подключи к ADOQuery провайдер ODBC создай в нем подключение к xls файлу и пусти запрос в котором таблицами будут листы, и получишь свою xls базу )

Я помоему уже тут выкладывал пример и описание подключения к Экзелю через ADO