Загрузка данных из таблицы Excel в ТЗ (Таблицу значений)

 Функция глОткрытьФайл(Маска="") Экспорт 
      

     Перем ИмяФайла,ИмяКаталога;
      

     Маска_="Файлы "+Маска+"|*."+Маска; 
      

     Если СокрЛП(Маска)="" Тогда
      

     Маска_="Все файлы |*.*" 
      

     КонецЕсли;
      

     Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяКаталога,"Открыть файл",Маска_)=1 Тогда
      

     Возврат ИмяКаталога+ИмяФайла; //полное имя открытого файла 
      

     Иначе
      

     Возврат "";
      

     КонецЕсли;
      

    КонецФункции 
      

      

    Функция ReadExcel(ИмяФайла,Лист=1) Экспорт
      

     Попытка
      

     E=СоздатьОбъект("Excel.Application");
      

     Исключение
      

     Предупреждение("Excel на компьютере не установлен!");
      

     Возврат ПолучитьПустоеЗначение();
      

     КонецПопытки; 
      

     E.Workbooks.Open(Сокрлп(ИмяФайла));
      

     Строк=E.Sheets(Лист).Cells.SpecialCells(11).Row; // строка последней ячейки
      

     Столбцов=E.Sheets(Лист).Cells.SpecialCells(11).Column; // столбец последней ячейки 
      

     фТЗ=СоздатьОбъект("ТаблицаЗначений");
      

     Для А=1 По Столбцов Цикл
      

     фТЗ.НоваяКолонка();
      

     КонецЦикла;
      

     Для Стр=1 По Строк Цикл
      

     Состояние("Обработано "+Строка(Стр)+" строк из "+Строка(Строк));
      

     фТЗ.НоваяСтрока(Стр);
      

     Для Столб=1 По Столбцов Цикл
      

     фТЗ.УстановитьЗначение(Стр,Столб,СокрЛП(E.Sheets(Лист).Cells(Стр,Столб).Value));
      

     КонецЦикла;
      

     КонецЦикла;
      

     E.Workbooks.Close(); 
      

     Возврат фТЗ;
      

    КонецФункции
      

      

    Процедура Сформировать() 
      

     ИмяФайла=глОткрытьФайл("xls");
      

     Если СокрЛП(ИмяФайла)="" Тогда Возврат; КонецЕсли;
      

     ТЗ.Загрузить(ReadExcel(ИмяФайла,1)); // ТЗ - таблица значений на форме 
      

     // ну а дальше смотрим визуально, что с ней дальше делать
      

    КонецПроцедуры