Скачать: CL | DM;

Поиск и замена в 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]

Торможу :))

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.007 c