![]() |
#1 |
Участник
|
Подскажите пожалуска как сделать поиск в Excel-e
пробывал следующее OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_'); XlRange := XlWrkSht.Range('11:11'); adress:=XlRange.Find('счет 501').Address; // вылетае с криком что перемен. // Automation не инецелизирована MESSAGE(adress); Задача состоит в том что если в шапке отчета нет столбца с номером искомого счета то его надо добавить в шапку. |
|
![]() |
#2 |
Участник
|
Цитата:
Сообщение от Константин!
Подскажите пожалуска как сделать поиск в Excel-e
пробывал следующее OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_'); XlRange := XlWrkSht.Range('11:11'); adress:=XlRange.Find('счет 501').Address; // вылетае с криком что перемен. // Automation не инецелизирована MESSAGE(adress); Задача состоит в том что если в шапке отчета нет столбца с номером искомого счета то его надо добавить в шапку. |
|
![]() |
#3 |
Участник
|
в ф-и
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) |
|
![]() |
#4 |
Участник
|
А код функции рабочий?
У нас делается так после открытия приложения xlWorkBook := xlApplication.Workbooks.Add; xlWorkSheet := xlWorkBook.Worksheets.Add; |
|
![]() |
#5 |
Участник
|
Ваша ф-я создает книгу и лист, а у меня она открывает сушествующею книгу с первым листом в ней
|
|
![]() |
#6 |
Участник
|
Порой бывает полезно активировать лист и Range перед тем как работать с ними. Попробуйте.
|
|
![]() |
#7 |
Участник
|
Всем спасибо заработало
OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_'); clear(XlRange); XlRange := XlWrkSht.Range('11:11'); XlRange.Find('счет 501').activate; adress:=XlApp.ActiveCell.Offset(0, 0).Address; |
|