Добрый день.
Стоит задача: перенести штрих-коды Товаров из файла 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
[необходимо зарегистрироваться для просмотра ссылки]