[Snake22]

Подскажите в чем проблема.
пытаюсь заменить текст в одной ячейке, но меняется во всей книге
ExАpp.activecell.replace(what:='.',replacement:=', ').
Хотя в ВБА эта команда меняет только в выделенной.а чтоб везде заменить вообще существует команда ExApp.Cells.replace...
Офис 2010.
Как же заменить с помощью дельфи?

[Ildar-tsr]

Сообщение от Snake22

ExАpp.activecell.replace(what:='.',replacement:=', ').

Суть заключается в том, что замена происходит в указанном диапазоне, если же он не указан, то замена происходит во всей книге.

Код:

ExApp.Range[e.Cells[2,1],e.Cells[4,3]].Replace(What:= '{что меняем}', Replacement:= '{на что меняем}'); //замена произойдет в диапазоне A2:C4

[Snake22]

Ага спасибо,в области заменяется норм.
А как же выделить одну ячейку,И если в ней есть искомый текст то заменить его (сам по себе ж эксель умеет поячеечно заменять).сейчас пока написал "ручную" замену,вытаскиваю текст из ячейки,заменяю средствами дельфи символ, и назад присваиваю текст ячейке. Но всё же интересует как средствами экселя это сделать.

[Ildar-tsr]

Глупо звучит, но никак, потому что сама по себе ячейка не является range'м. Попробуйте например следующее:

Код:

ExApp.Range[e.Cells[1,1],e.Cells[1,1]].Replace(What:= '', Replacement:= '');

По идеи, он выделяет в область одну ячейку (А1) и следовательно должен производить замену именно в данной ячейке, НО ЕСЛИ НЕ ОШИБАЮСЬ замена все равно произойдет во всей книге

P.S. Найдете решение, обязательно поделитесь.