Проблема с формированием табличного документа из файла ексель

&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;
	
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок     			   = "Выберите файл: ";
	Диалог.Фильтр 		 			   = "Ексль(*.xls;*.xlsx)|*.xls;*.xlsx";
	Диалог.ИндексФильтра 			   = 0;
	Диалог.ПредварительныйПросмотр     = Ложь;
	Диалог.ПроверятьСуществованиеФайла = Истина;
	Диалог.МножественныйВыбор          = Ложь; 
	Диалог.ПолноеИмяФайла              = ПутьКФайлу;
	
	Если Диалог.Выбрать() Тогда
		ПутьКФайлу = Диалог.ПолноеИмяФайла;
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьИзЕксель(Команда)
		Если ПутьКФайлу = "" Тогда
		
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст  = "Укажите файл загрузки";
		Сообщение.Поле   = "Объект.ПутьКФайлу";
		Сообщение.Сообщить();
		
		Возврат;
		
	КонецЕсли;
	
	Соединение = ПоключитьсяКExcel(ПутьКФайлу);
	
		//в массив структур
	Если ВариантЗагрузки = "МассивСтруктур" Тогда  
		
		Лист = Соединение["Листы"][0]; // берем нужные нам листы: можем перебирать все их в цикле, либо указывать определенные.
		
		ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
		ВсегоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;
		
		МассивДанных = Новый Массив;
		
		Для Сч = 1 по ВсегоСтрок Цикл
			
			Строка = Новый Структура;
			
			Для Сч2 = 1 по ВсегоКолонок Цикл
				
				Строка.Вставить("Колонка" + Строка(Сч2), Лист.Cells(Сч, Сч2).Value);
				
			КонецЦикла;
			
			МассивДанных.Добавить(Строка);
		КонецЦикла;
			
		//в двумерный массив
	ИначеЕсли ВариантЗагрузки = "ДвумерныйМассив" Тогда
		
		Лист = Соединение["Листы"][0];
		
		ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
		ВсегоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;
		
		Область = Лист.Range(Лист.Cells(1,1), Лист.Cells(ВсегоСтрок,ВсегоКолонок));
		Данные  = Область.Value.Выгрузить();
			
	КонецЕсли;
	
	Если Соединение = Неопределено Тогда
		
		Возврат;
		
	КонецЕсли;
	
	ОтключатьсяОтExcel(Соединение);
КонецПроцедуры

&НаКлиенте
Процедура ОтключатьсяОтExcel(Соответстие)
	
	Попытка
		
		Соответстие["Соединение"].DisplayAlerts = 0;
		Соответстие["ExcelФайл"].Close();
		
		Соответстие["Соединение"].DisplayAlerts = 1;
		Соответстие["Соединение"].Quit();
		
		Соответстие["Соединение"] = Неопределено;		
		
	Исключение
		
		Сообщить("Не удалось отключиться от Excel - "+ОписаниеОшибки());
		
	КонецПопытки;
	
КонецПроцедуры
 
&НаКлиенте
функция ПоключитьсяКExcel(п_Файл) 
	
	ПараметрыЕксель = Новый Соответствие;
	
	Попытка 
		
		Excel = Новый COMОбъект("Excel.Application");
		ПараметрыЕксель.Вставить("Соединение", Excel);
		
		Листы = Новый Массив;
		
		ExcelФайл = Excel.WorkBooks.Open (п_Файл);
		ПараметрыЕксель.Вставить("ExcelФайл", ExcelФайл);
		
		Для Сч = 1 По ExcelФайл.Sheets.Count Цикл
			Листы.Добавить(ExcelФайл.Sheets(Сч));
		КонецЦикла;
		
		ПараметрыЕксель.Вставить("Листы", Листы);
		
		фРезультат = ПараметрыЕксель;
		
	Исключение
		
		Сообщить("Ошибка создания обьекта Microsoft Excel" + ОписаниеОшибки());
		
		фРезультат = Неопределено;
 
	КонецПопытки;
	
	Возврат фРезультат;
	
КонецФункции

&НаКлиенте
Процедура ПоказатьТабличныйДокумент(Команда)
	ДвоичДанные = Новый ДвоичныеДанные(ПутьКФайлу);
	АдресВХранилище = ПоместитьВоВременноеХранилище(ДвоичДанные);
	
	ТабдДок = ПрочитатьТабличныйДокумент(АдресВХранилище);
КонецПроцедуры

&НаСервере
Функция ПрочитатьТабличныйДокумент(АдресВХранилище)
	
	Файл = ПолучитьИмяВременногоФайла("xlsx");
	лДвоичДанные = ПолучитьИзВременногоХранилища(АдресВХранилище);
	
	лДвоичДанные.Записать(Файл);
	
	
	ТабДок = Новый ТабличныйДокумент;
	
	Попытка
		
		ТабДок.Прочитать(Файл, СпособЧтенияЗначенийТабличногоДокумента.Значение);
		
	Исключение
		
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
		
	КонецПопытки;
	
	Возврат ТабДок; 
	
КонецФункции

&НаКлиенте
Процедура ТабличныйДокументВТЗ(Команда)
	ПреобразоватьТабличныйДокументВТаблицуЗначений();
КонецПроцедуры

Функция ПреобразоватьТабличныйДокументВТаблицуЗначений()
	
	ПоследняяСтрока = ТабДок.ВысотаТаблицы;
	ПоследняяКолонка = ТабДок.ШиринаТаблицы;
	
	ОбластьЯчеек = ТабДок.Область(1, 1, ПоследняяСтрока, ПоследняяКолонка);
	
	ИсточникДанных = Новый ОписаниеИсточникаДанных(ОбластьЯчеек);  
	ПостроительОтчета = Новый ПостроительОтчета; 
	ПостроительОтчета.ИсточникДанных = ИсточникДанных;
	ПостроительОтчета.Выполнить();
	
	ТабЗначений = ПостроительОтчета.Результат.Выгрузить();
	
КонецФункции

&НаСервере
Функция ПрочитатьТабличныйДокумент(АдресВХранилище)
	
	Файл = ПолучитьИмяВременногоФайла("xlsx");
	лДвоичДанные = ПолучитьИзВременногоХранилища(АдресВХранилище);
	
	лДвоичДанные.Записать(Файл);
	
	
	ТабДок = Новый ТабличныйДокумент;
	
	Попытка
		
		ТабДок.Прочитать(Файл, СпособЧтенияЗначенийТабличногоДокумента.Значение);
		
	Исключение
		
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
		
	КонецПопытки;
	
	Возврат ТабДок; 
	
КонецФункции

{ОбщаяФорма.Форма.Форма(57,5)}: Переменная не определена (Таблица)
    <<?>>Таблица.Очистить(); (Проверка: Сервер)
{ОбщаяФорма.Форма.Форма(58,5)}: Переменная не определена (Таблица)
    <<?>>Таблица.Прочитать(ИмяФайлаСервер, СпособЧтенияЗначенийТабличногоДокумента.Текст); (Проверка: Сервер)
{ОбщаяФорма.Форма.Форма(25,9)}: Переменная не определена (ОбщегоНазначенияКлиентСервер)
        <<?>>ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не указан файл!"); (Проверка: Тонкий клиент)
{ОбщаяФорма.Форма.Форма(45,9)}: Переменная не определена (ОбщегоНазначенияКлиентСервер)
        <<?>>ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Файл не обнаружен!"); (Проверка: Тонкий клиент)

Таблица,

СпособЧтенияЗначенийТабличногоДокумент

ОбщегоНазначенияКлиентСервер.