![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Здравствуйте.
Надо: найти конкретный комментарий в открытой книге. Я думал это осуществить простым перебором ячеек используемого диапазона, но что то не пошло... Пробовал вот так: Код:
exApp:=GetActiveOleObject('excel.application');
ExBook := exApp.WorkBooks.Open(FileName:=StrFileName);
ExSheet := ExBook.ActiveSheet;
ExURng := ExSheet.UsedRange;
R := ExURng;
R := ExSheet.Range['A1', EmptyParam].SpecialCells(xlCellTypeLastCell, EmptyParam);
endRow:=r.row;
endCol:=r.col;Есть вариант через Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate; а потом уже x := XLApp.ActiveCell.Row; y := XLApp.ActiveCell.Column; но мне не нравится идея активации какой-то ячейки. Вопрос №2: Как определить выделенную область в Excel в OleContainer, а главное адреса первой и последней ячейки этой области? В формате A1 Вопрос№3: При открытии файла так: OleContainer1.CreateObjectFromFile(ExtractFilePath (Application.ExeName)+'ППР_6.xlt', false); Основное меню Excel становится неактивным. Ладно там Создать, Открыть, но кнопка Сохранить тоже не работает( Как быть? Помогите пожалуйста хоть с чем-нибудь. |