Поиск и замена в Excel

← →
EH (2009-11-03 12:45) [0]

Добрый день!

Необходимо в файле Excel найти и заменить определенный текст. Делаю это так:

ExcelApp:=CreateOleObject("Excel.Application"); ExcelApp.DisplayAlerts:=False; ExcelApp.WorkBooks.Add(FileTemplate); Fnd:="111"; Rpl:= "222"; ExcelApp.Cells.Replace(What:=Fnd, Replacement:=Rpl); ExcelApp.ActiveWorkbook.SaveAs(FileResult); ExcelApp.ActiveWorkbook.Close; ExcelApp.Quit; ExcelApp:=unAssigned;

Работает нормально. Но если в Excel не найден текст для замены выдаёт сообщение о том что нет совпадений.

Подскажите, пожалуйста, как его можно отключить.

← →
EH (2009-11-03 12:51) [1]

Торможу :))

--
Тема закрыта

Поиск и замена в Excel Найти похожие ветки