Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.20;
Скачать: 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 вся ветка

Текущий архив: 2009.12.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-1221926003
MsGuns
2008-09-20 19:53
2009.12.20
Как узнать размер текста в произвольном контроле


2-1257236744
harisma
2009-11-03 11:25
2009.12.20
Проблема с приведением типов


15-1255816492
NailMan
2009-10-18 01:54
2009.12.20
1млн ФПС - СлоМо видео попадания пуль в препятствия


15-1256283940
Соллиф
2009-10-23 11:45
2009.12.20
Вопрос по волоконно-оптической связи


2-1256962231
xucc
2009-10-31 07:10
2009.12.20
Помогите найти компонент NxCustomGridControl.pas