Текущий архив: 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.014 c
