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

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

← →
ALEXEY SLATE   (2003-02-25 16:29) [0]

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

Такой вариант не проходит : (пишет ошибка ole или функции find).

var
WorkSheet, vExcel: Variant;
found: boolean;

begin
vExcel:=CreateOLEObject("Excel.Application");
vExcel.Visible:= false;
vExcel.Workbooks.Open["c:\xcxc.xls"];
WorkSheet:=vExcel.ActiveSheet;
found:=(WorkSheet.Range["A1:Z100"]).Find("Строка Поиска",1);
if not found then
vExcel.WorkBooks[vExcel.Workbooks.Count].Close(False);

vExcel.Visible:= true;

---

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

ошибка вышла, пардон
var
found: Viriant;

...........
found:=(WorkSheet.Range["A1:Z100"]).Find(What := "bla-bla", lookAt :=1);
//если нашли в шаблоне
if (TVarData(Found).VDispatch<>nil) then
begin
Row:=Found.Row;
nCol:=Found.Column;
end


не забудь закрывать Excel:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
vExcel.Quit;
vExcel:=Unassigned;
end;

тестировал на Delphi 4

---

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

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



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