Скачать: CL | DM;

Поиск в 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;
...}

---

← →
Романов Р.В. ©   (2003-02-20 23:42) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c