работа с ms excel

[1o1man]

в общем, есть в Excel база данных состоящая из ИНН, названия фирм и еще информации по фирмам, надо сделать поиск по ней (инн или название фирмы вводить), и чтоб выводила данные, относящиеся к этому инн/фирме со всех страниц
(например в а1 лежит инн, в а2 название, в остальной строке данные, и так в некоторых страницах)

какие компоненты мне надо использовать?
и как сделать поиск?
я так понимаю надо посчитать кол-во страниц/строк/столбцов, потом в цикл загнать проверку по а1, а2, б1, б2... так? и главное - КАК?
сам эксель не обязательно чтоб запускался, даже желательно чтоб не запускался

хеееееелп

[1o1man]

help plzzzzzz

[С.М.С]

проще сделать в этойже книги, а работать с формой для ввода значений для поиска и отображения результата.

[Sasha_Smirnov]

С.М.С, я правильно понял? — речь идёт об окне поиска по контрол-F?
(Где есть параметры — искать на листе/в книге — ячейка целиком и пр.)

[С.М.С]

да нет, посто через макрос прописать форму и всё ей сопутствующее для поиска. Можно конечно на VB сделать программу и через OLE производить поиск, ну тогда уже проще создать собственну базу. (((Если конечно я правельно понял 101man.))) Как то скользко задан вопрос с отображение книги Excel/

[С.М.С]

если нехотите сами разбираться обратитесь в раздел Фриланс. В рамках тойже книги где и хранится база, организовать поиск обойдётся Вам совсем не дорого, возможно даже бесплатно. А вообще подобных работ сдесь разбиралось много поищите наверняка найдёте, или разясните, чего хотите, желательно выложите образец базы, хотя бы набросок её организации.

[1o1man]

базы у меня нету, дядя попросил прогу сделать, чтоб с собой на флешке носить и искать... хз зачем ему... надо вобщем

типа того, только я хз какие компоненты использовать, щас вот про "экселевские" компоненты читаю и адо

[Sasha_Smirnov]

Скажи-ка дяде про контрол-F.

[1o1man]

угу, если не получится, так и скажу

[1o1man]

procedure TForm1.Button2Click(Sender: TObject);
var  XL: Variant;  i,j,k:integer;   //i-номер строки,  j - номер столбца, k - номер страницы
begin
 XL := CreateOLEObject('Excel.Application');  // создаем
 XL.WorkBooks.add;          // добавляем
 XL.WorkBooks.Open(path);   // открываем наш файл
 XL.Visible:=false;           // скрываем что эксель открылся
 i:=1; j:=1; k:=1;          // переходим в 1 ячейку 1 страницы
 while (XL.Cells[i,1] and XL.Cells[i, 2] ) <> nil do      //пока строки вниз не кончились будем искать
 begin
 i:=i+1;
 if (XL.Cells[i,1] or XL.Cells[i, 2])= edit1.text then   //если совпало
while( XL.Cells[i, j]  <> nil ) do      //то пока столбцы имеют инфу, выводим
//А КАК ВЫВЕСТИ? точнее куда. в че выводить? в TDBGrid? как? и как перейти на след страницу?

 end;

как делать я начал тут смотреть http://www.delphicode.ru/office/office.htm
можно ли в Label добавлять данные из поиска?