День добрый!
Порылась в поиске, ничего не нашла. Прошу помощи.
Есть excel-файл. Нужно найти в нем определенные данные и заменить на другие.
Лист.Cells.Replace(ЧтоИщем,НаЧтоМеняем).
Ругается, что данные отсутствуют.
Чувствую, что нужно проверять есть ли данные.
Лист.Cells.Find(ЧтоИщем).
Ругается - плохой тип переменной.
Помогите, кто может.
Спасибо.

макросм наше все

"
Как осуществить поиск / замену значений ячеек на листе
//Выбираем область поиска - весь лист
ОбластьПоиска = Лист.Cells;

// Укажем начало листа
НачалоЛиста = Диапазон.Cells(1, 1);

// Ищем ячейку с текстом, указанным в переменной ТекстДляПоиска,
//укажем откуда искать - с начала листа
ОбластьПараметр = ОбластьПоиска.Find(ТекстДляПоиска, НачалоЛиста);


// Если нашли, заполняем значением из переменной Значение
Если ОбластьПараметр <> неопределено Тогда
   ОбластьПараметр.Value = Значение;
КонецЕсли;

Замечание. Текст для замены лучше выделять, например, в угловые скобки, аналогично параметрам макета в 1С. Это улучшит наглядность, визуально отделит от рабочего текста.
Текст для поиска в этом случае будет выглядеть так:

ТекстДляПоиска = "<ИмяДляЗамены>"
"
http://programna1c.narod.ru/docs/Excel/Excel1C8.html

ps. Не проверял

(0) там поиск через with делается, так что лучше действительно макрос написать и вызвать уже его из обработки

(2) А "неопределено" это что?

Лентяйка...
Вот через попытку/исключение:
"
xl=createobject("Excel.Application");
wb=xl.Workbooks.Open(ВыбФайл);
ws=wb.worksheets(1);//Первый лист
where=ws.columns(1);//Первый столбец
what="***";//Строка поиска
Попытка
  r=where.find(what);//Ищем в первом столбце
  Сообщить(what+" - "+r.offset(0,1).value);//Получаем значение из второго столбца
Исключение
  Сообщить(what+" - не нашли");
КонецПопытки
"
http://www.itland.ru/forum/index.php?showtopic=6879

(5) Да не лентяйка я. Просто не знаю.
А где этот код писать надо - в 1с?

(5) Нашла! Спасибо! Попробую.

Спасибо, получилось.
Продолжаем разговор.
В первой колонке - код, во второй - наименование.
Одинаковые коды и наименование есть. Но почему-то коды меняет все, а наименование меняет только первое.
where.offset(0,1).Value = НовоеНаименование;
После
r=where.find(what).
Почему?

может больше кода покажешь?

Легко

Если КорректируемФайл = 1 Тогда                
   Excel    = СоздатьОбъект("Excel.Application");
   Книга    = Excel.Workbooks.Open(ИмяФайлаКорректировки);
   Лист    = Книга.WorkSheets(1);
   Колонки = Лист.Columns(1);
КонецЕсли;
   
мНовыйКод = 0;
   
Справ = СоздатьОбъект("Справочник.Номенклатура");

Справ.ПорядокКодов();
Справ.ВыбратьЭлементы(0);

Пока Справ.ПолучитьЭлемент() = 1 Цикл
   мТекущийКод = Прав(Справ.Код, 4);
       
   Справ.УстановитьНовыйКод(Строка(Формат(мНовыйКод, "Ч(0)8")));        
   Справ.Записать();
   Состояние("Обработана запись справочника с кодом - " + мТекущийКод + ". Новый код - " + Справ.Код + ".");
       
   Если КорректируемФайл = 1 Тогда
           мЧтоИщем    = мТекущийКод;
       мНаЧтоМеняем    = Строка(Формат(мНовыйКод + 1, "Ч(0)4"));
       мНаименование    = Справ.Наименование;
Сообщить("1 - " + мНаЧтоМеняем);            
       Попытка
           мПоискКод = Колонки.Find(мТекущийКод);
           мПоискКод.Replace(мТекущийКод, мНаЧтоМеняем);
           мПоискКод.OffSet(0,1).Value = мНаименование;
           Исключение
           КонецПопытки;    
       КонецЕсли;
       
       мНовыйКод        = мНовыйКод + 1;                                            КонецЦикла;
   

   Если КорректируемФайл = 1 Тогда                                             Книга.Save();
       Excel.DisplayAlerts = 0;
       Excel.Workbooks.Close();
       Excel.Quit();
   КонецЕсли;
       
   Предупреждение("Готово.");
   
КонецПроцедуры    // ПростаяПеренумерция

Ну и как анализы, доктор?
Поможет кто-нибудь?

Выдели в Excel несколько строк в столбце и введи значение. В каких ячейках будет введенное значение?

Извини, но ты где в Ростове живешь?

попробуй не задавать поиск по столбцу (Лист.Columns(1);
), а ищи по всему листу + FindNext.
(13)Сельмаш.

Получилось! :)))))))))))))
В Offset надо так писать:
мПоискКод.OffSet(мПоискКод ,0,1).Value = мНаименование;

(14) Я училась в Ростове...

(16)где? на кого?

В ДГТУ. Странный вопрос - на программиста, канешна.

(18)Я тоже. Странно, но не на программиста :)

(19) Там же?

Да, на "технологии машиностроения".

Да, тесен мир :)