Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизПоиск в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c