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

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

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