Загрузка из EXCEL в 1с в редакции 8.3

&НаКлиенте
Процедура ВыполнитьЗагрузку(Команда) 
        ПрочитатьДокумент(ИмяФайла);
КонецПроцедуры   
            
&НаСервереБезКонтекста
Процедура ПрочитатьДокумент(ИмяФайла)
    НачатьТранзакцию();
	//подключаемся к эксел
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.WorkBooks.Open(ИмяФайла);
		//Состояние("Обработка файла Microsoft Excel...");
	Исключение
		Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
		
	Попытка 
    	//Открываем необходимый лист
    	Excel.Sheets(1).Select();  // лист 1, по умолчанию  
	Исключение
		//Закрываем Excel
	    Excel.ActiveWorkbook.Close(); 	
		Excel = 0;
		Сообщить("Файл "+Строка(ИмяФайла)+" не соответствует необходимому формату! Первый лист не найден!");
		ОтменитьТранзакцию();
		Возврат;
	КонецПопытки;	
	
    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
	Иначе
		ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
		ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;   
	Конецесли;
	
	//считываем первую строку и генерируем колонки
	
	Сч = 1;
	Пока ЗначениеЗаполнено(Excel.Cells(1, Сч).Text) Цикл
		ИмяКолонки = Excel.Cells(1, Сч).Text;
		ИмяБезПробелов = СтрЗаменить(ИмяКолонки," ",""); // убираем из имени колонок пробелы  
		Сообщить("ИмяКолонки="+ИмяКолонки);
		//Расшифровка.Колонки.Добавить(ИмяБезПробелов,,ИмяКолонки);
		//НоваяКолонка = ЭлементыФормы.Расшифровка.Колонки.Добавить(ИмяБезПробелов, ИмяКолонки);
		//НоваяКолонка.Данные = ИмяБезПробелов;
		//Сч = Сч + 1;
	КонецЦикла;