Процедура Загрузить(Команда)
  ПодключитьРасширениеРаботыСФайлами();
  Режим = РежимДиалогаВыбораФайла.Открытие;
  ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
  ДиалогОткрытияФайла.ПолноеИмяФайла = "";
  Фильтр = "Таблица(*.xls)|*.xls";
  ДиалогОткрытияФайла.Фильтр = Фильтр;
  ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
  ДиалогОткрытияФайла.Заголовок = "Выберите файл";
  Если ДиалогОткрытияФайла.Выбрать() Тогда
    ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
  Иначе
    Возврат;
  КонецЕсли;
  
  Попытка
  Excel = Новый COMОбъект("Ехсе1.Application");
  Excel.WorkBooks.Open(ПутьКФайлу);
  ExcelЛист = Excel.Sheets(1);
  Исключение
    Сообщить ("Не установлено приложение МS Ехсе1!");
    Возврат;
  КонецПопытки;
  
  ТекущаяСтрока = 2;
  ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
  Пока ЗначениеЗаполнено(ТекущееЗначение) Цикл
  Состояние("Загрузка данных... строка" + Строка(ТекущаяСтрока-1));
  Наименование = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
  ЦенаПродажи = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 3).Value);
  ЕдиницаИзмерения = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 4).Value);
  ЗаполнитьЭлементСправочника(Объект.ЗагрузкаНаДату,Наименование,ЦенаПродажи,ЕдиницаИзмерения);
  ТекущаяСтрока = ТекущаяСтрока + 1;
  ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
  КонецЦикла;
Excel.Quit();
КонецПроцедуры