Импорт документа Excel через web-клиент

 #НаКлиенте
Процедура ИмпортИзВнешнегоФайла(Команда)
     //Выбор и загрузка файла.
     Если НЕ  ПодключитьРасширениеРаботыСФайлами() Тогда
          УстановитьРасширениеРаботыСФайлами();
     КонецЕсли;
 
     Если  ПодключитьРасширениеРаботыСФайлами() Тогда
          Режим =  РежимДиалогаВыбораФайла.Открытие;
          ДиалогОткрытияФайла = Новый  ДиалогВыбораФайла(Режим);
          ДиалогОткрытияФайла.ПолноеИмяФайла = "";
          ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
          Фильтр = "Текст(*.xls)|*.xls";
          ДиалогОткрытияФайла.Фильтр = Фильтр;
          ДиалогОткрытияФайла.Заголовок = "Выберите файл для импорта";
          Если  ДиалогОткрытияФайла.Выбрать() Тогда
               Объект.МедицинскиеРаботники.Очистить();
               ДанныеНачинаютсяС = 1;
              Если  Не ВвестиЧисло(ДанныеНачинаютсяС, "Данные начинаются со строки", 2,  0) Тогда
                    Возврат;
              КонецЕсли;
              МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
              ПомещаемыеФайлы = Новый Массив;
              Для  Каждого Файл Из МассивФайлов Цикл
                   ТекФайл = Новый Файл(Файл);
                   Описание = Новый ОписаниеПередаваемогоФайла(Файл, "");
                   ПомещаемыеФайлы.Добавить(Описание);
              КонецЦикла;
 
              ПомещенныеФайлы = Новый Массив;
 
              Если  ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, УникальныйИдентификатор) Тогда
                   //Запуск импорта
                   ИмпортироватьФайлИзВременногоХранилищаВТЗ(ПомещенныеФайлы, ДанныеНачинаютсяС);
              КонецЕсли;
         Иначе
              Предупреждение("Файл(ы) не  выбран!");
         КонецЕсли;
     Иначе
          Предупреждение(НСтр("ru ='Данная возможность недоступна, так как не подключено расширение работы с файлами.'", "ru"));
     КонецЕсли;
КонецПроцедуры //ИмпортИзВнешнегоФайла()   

 #НаСервере
Процедура ИмпортироватьФайлИзВременногоХранилищаВТЗ(МассивФайлов,  ДанныеНачинаютсяС)
    ДокументОбъект =  РеквизитФормыВЗначение("Объект");
 
    //Обход файлов, записанных  во временное хранилище
    Для Каждого  ЭлементМассива Из МассивФайлов Цикл
        ФайлИзХранилища =  ПолучитьИзВременногоХранилища(ЭлементМассива.Хранение);
        ВременныйФайл = ПолучитьИмяВременногоФайла("xls");
       //Сохранение во временнный файл на диске
       ФайлИзХранилища.Записать(ВременныйФайл);
 
       //Импорт
       Док =  ПолучитьCOMОбъект(ВременныйФайл);
       ФИОУчастника = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 2).Value;
       Пока СокрЛП(ФИОУчастника) ="" Цикл
           //  Добавление строки с файла в документ
          НоваяСтрока = ДокументОбъект.МедицинскиеРаботники.Добавить();
          НоваяСтрока.Фио = ФИОУчастника;
          НоваяСтрока.Учреждение = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 7).Value;
          НоваяСтрока.Адрес = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 3).Value;
          НоваяСтрока.Телефон = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 4).Value;
          НоваяСтрока.ЭлПочта = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 5).Value;
          НоваяСтрока.Образование = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 6).Value;
          ДанныеНачинаютсяС = ДанныеНачинаютсяС + 1;
          ФИОУчастника = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 2).Value;
      КонецЦикла;
      Сообщить("Импорт завершён");
      Док.Application.Quit();
    КонецЦикла;
    ЗначениеВРеквизитФормы(ДокументОбъект, "Объект");
КонецПроцедуры  //ИмпортироватьФайлИзВременногоХранилищаВТЗ()