Добрый день.
Стоит задача: перенести штрих-коды Товаров из файла Excel в карточку Товаров.
Поделитесь обработочкой, если у кого есть.
Заранее Спасибо

Нашел на Инфостарте и немного переделал.
Выкладываю сюда.Может кому пригодиться

//Создаем ОЛЕ подключение к Excel
  Excel = СоздатьОбъект("Excel.Application");  
  
  //Открываем файл
  Excel.Workbooks.Open(ПолноеИмяФайла); 
  
  //Открываем активную книгу
  Книга = Excel.ActiveWorkbook;
    
  //Получааем количество строк в книге
  Строк = Excel.Cells.CurrentRegion.Rows.Count;
    
  //Создадим заранее объект справочника ТМЦ
  СпрТМЦ = СоздатьОбъект("Справочник.ТМЦ");
  СпрЦены = СоздатьОбъект("Справочник.Цены");   
  
  СпрКатЦены = СоздатьОбъект("Справочник.КатегорииЦен");  
  
  СпрКатЦены.НайтиПоНаименованию("Закупочная");
  ТекКатЦены = СпрКатЦены.ТекущийЭлемент();
         
  
  //Перебираем строки и обрабатываем данные
  Для х = 1 По Строк Цикл
    
    //Зная типы значений в колонках и перебирая строки получаем
    //необходимые значения и обрабатываем их   
    КодТМЦ       = СокрЛП(Строка(Excel.Cells(х, 1).Value));  
    НаименованиеТМЦ = СокрЛП(Строка(Excel.Cells(х, 2).Value));
    ЦенаТМЦ     = Число(Excel.Cells(х, 3).Value);  
    
    //Сначала ищем товар по коду, если не нашли по наименованию  
    Если СпрТМЦ.НайтиПоКоду(КодТМЦ) = 1 Тогда 
      НайдТовар = СпрТМЦ.ТекущийЭлемент();
    Иначеесли СпрТМЦ.НайтиПоНаименованию(НаименованиеТМЦ) = 1 Тогда  
      НайдТовар = СпрТМЦ.ТекущийЭлемент(); 
    Иначе
      //Товар не нашли, продолжаем 
      //здесь можно создавать товар если надо
      Продолжить;
    Конецесли;
     
    //записываем цену
       СпрЦены.Новый();  
       СпрЦены.КатегорияЦены = ТекКатЦены;
      СпрЦены.Цена = ЦенаТМЦ;
      СпрЦены.Владелец = НайдТовар;
      СпрЦены.Записать();   
    //.......     
    
  Конеццикла;
  
  //После загрузки зарываем соединение с Excel
  Excel.Workbooks.Close();

© Infostart
необходимо зарегистрироваться для просмотра ссылки