Процедура ЗагрузитьФайлXLS() Экспорт Если ПустаяСтрока(ИмяФайла) Тогда Предупреждение ("Не выбран файл загрузки"); Возврат; Конецесли; Excel = Новый COMОбъект("Excel.Application"); Excel.DisplayAlerts=Ложь; Листы=Excel.Workbooks.Open(ИмяФайла); Ячейки=Листы.Sheets(1); Количествострок = Ячейки.UsedRange.Rows.Count; Для Сч=1 По Количествострок Цикл ОбработкаПрерыванияПользователя();
Артикул = СокрЛП(Ячейки.Cells(Сч,КолонкаАртикул).Value); Количество = СокрЛП(Ячейки.Cells(Сч,КолонкаКоличество).Value);
Попытка Количество = Число(Количество); Исключение Сообщить(""+Сч+": не удалось конвертировать количество.",СтатусСообщения.Важное); Продолжить; КонецПопытки; Если ЗначениеЗаполнено(Артикул) И ЗначениеЗаполнено(Количество) Тогда Номенклатура = Справочники.Номенклатуры.НайтиПоРеквизиту("Артикул",Артикул); НоваяСтрокаТовары = Товары.Добавить(); НоваяСтрокаТовары.Номенклатура = Номенклатура; НоваяСтрокаТовары.Количество = Количество; Иначе Сообщить(""+Сч+": не заполнены обязательные значения.",СтатусСообщения.Важное); Конецесли; Конеццикла; Excel.quit(); КонецПроцедуры
|