Сколько у Вас рабочих мест 1С?

Рейтинг@Mail.ru

Процедура ЗагрузитьФайлXLS() Экспорт
Если ПустаяСтрока(ИмяФайла) Тогда
Предупреждение ("Не выбран файл загрузки");
Возврат;
Конецесли;

Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts=Ложь;
Листы=Excel.Workbooks.Open(ИмяФайла);
Ячейки=Листы.Sheets(1);
Количествострок = Ячейки.UsedRange.Rows.Count;

Для Сч=1 По Количествострок Цикл

ОбработкаПрерыванияПользователя();

Артикул = СокрЛП(Ячейки.Cells(Сч,КолонкаАртикул).Value);
Количество = СокрЛП(Ячейки.Cells(Сч,КолонкаКоличество).Value);

Попытка
Количество = Число(Количество);
Исключение
Сообщить(""+Сч+": не удалось конвертировать количество.",СтатусСообщения.Важное);
Продолжить;
КонецПопытки;

Если ЗначениеЗаполнено(Артикул) И ЗначениеЗаполнено(Количество) Тогда
Номенклатура = Справочники.Номенклатуры.НайтиПоРеквизиту("Артикул",Артикул);
НоваяСтрокаТовары = Товары.Добавить();
НоваяСтрокаТовары.Номенклатура = Номенклатура;
НоваяСтрокаТовары.Количество = Количество;
Иначе
Сообщить(""+Сч+": не заполнены обязательные значения.",СтатусСообщения.Важное);
Конецесли;
Конеццикла;
Excel.quit();
КонецПроцедуры