Главная страница
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.012 c
2-1256897496
pesad
2009-10-30 13:11
2009.12.20
Быстрая графика


2-1257108265
Ivan
2009-11-01 23:44
2009.12.20
GET и амперсанд


15-1255092813
Unknown user
2009-10-09 16:53
2009.12.20
Интересная задача


1-1228851112
Tack
2008-12-09 22:31
2009.12.20
Как открыть длинный URL в браузере?


2-1257157663
Сергей
2009-11-02 13:27
2009.12.20
Как передать данные в CRReport.PrintOut