Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: 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 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
1-17102
AZ
2003-02-24 17:08
2003.03.06
Графический редактор графического компонента


14-17342
anbezr
2003-02-17 17:19
2003.03.06
Динамический массив


3-16977
NightCold
2003-02-17 14:59
2003.03.06
Помогите срочно!


1-17005
mikk
2003-02-21 22:32
2003.03.06
УЖАСНЫЕ ГЛЮГИ В DELPHI6


1-17169
ЮРИЙ_К
2003-02-21 10:51
2003.03.06
Подключаем манифест к своей проге. Однако не все прекрасно 8-(((