[bugs952]

пытаюсь сделать поиск и замену текста в Excel, но замена текста происходит только в активном листе, а как сделать, чтобы во свей книге?

[pesi]

Код:

var
e : OleVariant;
i: integer;
begin
e:= CreateOleObject('Excel.Application');
e.Visible:=true;
e.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
for  i:=1 to e.WorkSheets.count do
begin
e.Sheets[i].SELECT;

ну а дальше выши действия

[bugs952]

Спасибо понял