| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

EH ©   (2009-11-03 12:45:00) 

Добрый день!

Необходимо в файле 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:00) [1]

Торможу :))

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

---

Наверх