Поиск в Excel-e

[Константин!]

Подскажите пожалуска как сделать поиск в Excel-e
пробывал следующее

OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_');
XlRange := XlWrkSht.Range('11:11');
adress:=XlRange.Find('счет 501').Address; // вылетае с криком что перемен.
// Automation не инецелизирована
MESSAGE(adress);

Задача состоит в том что если в шапке отчета нет столбца с номером искомого счета то его надо добавить в шапку.

[romeo]

Цитата:

Сообщение от Константин!

Подскажите пожалуска как сделать поиск в Excel-e
пробывал следующее

OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_');
XlRange := XlWrkSht.Range('11:11');
adress:=XlRange.Find('счет 501').Address; // вылетае с криком что перемен. 
                                                              // Automation не инецелизирована
MESSAGE(adress);

Задача состоит в том что если в шапке отчета нет столбца с номером искомого счета то его надо добавить в шапку.

<{POST_SNAPBACK}>

А где присваивается значение переменной XlWrkSht?

[Константин!]

в ф-и
OpenBookXLS(FileName : Text[250];SheetName : Text[250])
IF FileName = '' THEN
ERROR(Text001);


IF NOT EXISTS(FileName) THEN
ERROR(Text003,FileName);

IF NOT CREATE(XlApp,TRUE) THEN
ERROR(Text000);

XlApp.Workbooks._Open(FileName);
XlWrkBk := XlApp.ActiveWorkbook;
XlWrkshts := XlWrkBk.Worksheets.Item(1);
XlWrkSht := XlWrkBk.Worksheets.Item(XlWrkshts.Name)

[romeo]

А код функции рабочий?
У нас делается так после открытия приложения
xlWorkBook := xlApplication.Workbooks.Add;
xlWorkSheet := xlWorkBook.Worksheets.Add;

[Константин!]

Ваша ф-я создает книгу и лист, а у меня она открывает сушествующею книгу с первым листом в ней

[Mihon]

Порой бывает полезно активировать лист и Range перед тем как работать с ними. Попробуйте.

[Константин!]

Всем спасибо заработало

OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_');
clear(XlRange);
XlRange := XlWrkSht.Range('11:11');
XlRange.Find('счет 501').activate;
adress:=XlApp.ActiveCell.Offset(0, 0).Address;