Главная страница
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
2-1257108265
Ivan
2009-11-01 23:44
2009.12.20
GET и амперсанд


15-1256078084
Kerk
2009-10-21 02:34
2009.12.20
Политкорректность


15-1256003315
TRSteep
2009-10-20 05:48
2009.12.20
Теория и практика клиента и сервера.


15-1256370619
Alex_ey
2009-10-24 11:50
2009.12.20
заедает звук в адоб аудишн 3


15-1255874210
POOP
2009-10-18 17:56
2009.12.20
Что называют диаметром линзы?