Здравствуйте.
Надо: найти конкретный комментарий в открытой книге. Я думал это осуществить простым перебором ячеек используемого диапазона, но что то не пошло...
Пробовал вот так:
Код:
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;
но так конечно not supported by automation object...
Есть вариант через
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 становится неактивным. Ладно там Создать, Открыть, но кнопка Сохранить тоже не работает(
Как быть?
Помогите пожалуйста хоть с чем-нибудь.