Поиск в Excel

← →
ALEX SLATER (2003-02-20 16:50) [0]

Господа Мастера , подскажите как решить проблему : у меня есть совокупность файлов формата xls , пользователь вводит слово для поиска и мне необходимо выдать пользователю список файлов , где это слово(строка) есть . Если можно пример или ссылку , где можно почитать как делать поиск в Excel.

← →
Паша © (2003-02-20 19:01) [1]

попробуй так, не тестировал, но вроде превильно:
var
WorkSheet, vExcel: Variant;
found: boolean;

begin
.........
vExcel:=CreateOLEObject("Excel.Application");
vExcel.Visible:= false;
for {цикл по файлам} do
begin
vExcel.Workbooks.Open["c:\xcxc.xls"];
WorkSheet:=vExcel.ActiveSheet;
found:=(WorkSheet.Range["A1:Z100"]).Find(What := "Строка Поиска", lookAt :=1);
if not found then
vExcel.WorkBooks[vExcel.Workbooks.Count].Close(saveChanges:=False);
end

vExcel.Visible:= true;

вот это "A1:Z100" можно заменить с учетом, мне просто некогда это делать
{ количество строк и колонок, занятых информацией
var
rng: variant;
R,C: integer;
begin
rng:=WorkSheet.Get_UsedRange(0);
R:=rn.Rows.Count;
C:=rn.Columns.Count;
...}

Подключаешься к файлу через ADO и работаешь как с обычной таблицей БД.

Поиск в Excel Найти похожие ветки