Загрузка данных из COM

Перем мФайлБД;
 
Процедура КоманднаяПанельТаблицаОткрыть(Кнопка)
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Заголовок = "Выберите файл для загрузки";
    Диалог.Фильтр = "Excel (*.xls)|*.xls|1С (*.mxl)|*.mxl";
    
    Если Диалог.Выбрать() Тогда
        мФайлБД = Диалог.ПолноеИмяФайла;
    Иначе
        Возврат;
    КонецЕсли;
    
    Файл = Новый Файл(мФайлБД);
    Если ВРег(Файл.Расширение) = ".XLS" Тогда
        ЭлементыФормы.ЛистExcel.Очистить();
        ОткрытьФайл(мФайлБД);
    Иначе // .MXL
        ЭлементыФормы.ЛистExcel.Прочитать(мФайлБД);
    КонецЕсли;
    
КонецПроцедуры
 
Процедура ОткрытьФайл(ФайлДБ)
 
ЭлементыФормы.ЛистExcel.Очистить();
    //Попытка
    //  Эксель = Новый COMОбъект("Excel.Application"); 
    //Исключение
    //  Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
    //  Возврат;
    //КонецПопытки;
    
    ///Нет у нас Excel на сервере
    // задействуем Йоксель
    
    ФайлMXL = Новый Файл(ФайлДБ);
    Йоксель = Новый COMОбъект("Йоксель");
    ТабличныйДокумент = Йоксель.СоздатьТабличныйДокумент();
    ТабличныйДокумент.Открыть(ФайлДБ, 2);
    ПутьКФайлуMXL = КаталогВременныхФайлов() + ФайлMXL.Имя;
    ТабличныйДокумент.Записать(ПутьКФайлуMXL, 0);
    ЭлементыФормы.ЛистExcel.Прочитать(ПутьКФайлуMXL);
    
    //Приколим файл из Темпа
    УдалитьФайлы(ПутьКФайлуMXL);
 
КонецПроцедуры

Процедура ОткрытьФайл(Файл)
    
    Попытка
        Эксель = Новый COMОбъект("Excel.Application"); 
    Исключение
        Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
        Возврат;
    КонецПопытки;
    
    Книга = Эксель.WorkBooks.Open(Файл);
    КоличествоЛистов = Книга.Sheets.Count;
    СписокЛистов = Новый СписокЗначений;
    
    Для к = 1 по КоличествоЛистов Цикл
        СписокЛистов.Добавить(к, Книга.Sheets(к).Name);
    КонецЦикла;
    
    ВыбранныйЛист = СписокЛистов.ВыбратьЭлемент("Выберите лист Excel");
    
    Если НЕ ВыбранныйЛист = Неопределено Тогда
        СформироватьТабличныйДокумент(Книга.WorkSheets(ВыбранныйЛист.Значение)); 
    КонецЕсли;
    
    Эксель.Application.Quit();    
    
КонецПроцедуры // ()
 
Процедура СформироватьТабличныйДокумент(Лист)
    
    //мТабДокумент = Новый ТабличныйДокумент;
    ЛистExcel = ЭлементыФормы.ЛистExcel;
    
    ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
    
    Для Строка = 1 По ВсегоСтрок Цикл
        ОбработкаПрерыванияПользователя();
        Состояние("Обработано строк таблицы: " + Строка + " из " +  ВсегоСтрок);
        Для Колонка = 1 По ВсегоКолонок Цикл
            
            Область = ЛистExcel.Область("R"+Строка+"C"+Колонка);
            ЯчейкаExcel = Лист.Cells(Строка, Колонка);
            
            Область.Текст = ЯчейкаExcel.Value;
            
             // УстановитьПараметрыОбласти(Область, ЯчейкаExcel); // Эта проца устанавливает Шрифты и границы ячеек. Из за нее и работает медленно
            Область.ШиринаКолонки = Лист.Cells(Строка, Колонка).ColumnWidth; // Можно приколоть
            Область.ВысотаСтроки =  Лист.Cells(Строка, Колонка).RowHeight; // То же можно..
            //Область.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
            
        КонецЦикла;
    КонецЦикла;
    
КонецПроцедуры