ТабличныйДокумент.Прочитать Ошибка при вызове метода контекста

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

&НаКлиенте
Процедура ПоместитьФайлВВремХранилище(Адрес,ПолноеИмяФайла)
	ПоместитьФайл(Адрес,ПолноеИмяФайла,,Ложь);
КонецПроцедуры 

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

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

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

&НаСервере	
Процедура ЗаполнитьТаблицыФормы()
	
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	Попытка
		// Выполняется долго на больших файлах.
		ТабличныйДокумент.Прочитать(АдресВремФайла, СпособЧтенияЗначенийТабличногоДокумента.Значение);   

		ОбластьФайла = ТабличныйДокумент.ПолучитьОбласть("Лист1"); //У меня лист файла был один, и не стал заморачиваться на программное получение его имени
		КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();
		КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();
	Исключение
		Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);
		Возврат;// Новый ТаблицаЗначений;
	КонецПопытки;
	
	//Пробежим в цикле строки и колонки Таб. документа. Здесь возможны варианты. 
	Для Стр = 1 по КолВоСтрокФайла Цикл 
		
		Для Кол = 1 по КолВоКолонокФайла Цикл 
			
			Область = ОбластьФайла.ПолучитьОбласть("R"+Стр+"C"+Кол);
				
			ТекущаяОбласть = Область.ТекущаяОбласть;
			Попытка
				ЗначениеЯчейки = ТекущаяОбласть.Значение;        // Число, Дата.
			Исключение
				ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);    // Строка, Булево. (Булево как строка "ИСТИНА"/"ЛОЖЬ")
				Если ЗначениеЗаполнено(ЗначениеЯчейки) Тогда
									
					Если ТипЗнч(ЗначениеЯчейки) = Тип("Строка") Тогда
						ЗначениеЯчейки = СокрЛП(ЗначениеЯчейки);
					КонецЕсли;
				Иначе
					ЗначениеЯчейки = Неопределено;
				КонецЕсли;
			КонецПопытки;
КонецЦикла;
КонецЦикла;

//для случае работы на тонком клиенте
&НаКлиенте
Процедура ИзФайла(Команда)
	
	  Оповещение = Новый ОписаниеОповещения("ВыборФайла3",ЭтаФорма);
	  
	  НачатьПомещениеФайла(Оповещение,,,ИСТИНА);
	
КонецПроцедуры


&НаСервере
Процедура ВыборФайла3(п1,п2,п3,п4) экспорт
	
	Если НЕ п1 Тогда
		Возврат
	КонецЕсли;

	ДвоичныеДанные = ПолучитьИзВременногоХранилища(п2);
	АдресФайлаНаСервере = ПолучитьИмяВременногоФайла(".xlsx");
	ДвоичныеДанные.Записать(АдресФайлаНаСервере);

	
	ЭтаФорма.ТабДок.Прочитать(АдресФайлаНаСервере);
	
	
КонецПроцедуры	

&НаКлиенте
Процедура ФайлExcelНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	СтандартнаяОбработка    = Ложь;
	
	Оповещение  = Новый ОписаниеОповещения("ПутьКФайлуНачалоВыбораЗавершение", ЭтаФорма);
	
	ДиалогВыбора= Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	
	ДиалогВыбора.Показать(Оповещение);
	
	
КонецПроцедуры

&НаКлиенте
Процедура ПутьКФайлуНачалоВыбораЗавершение(МассивФайлов, ДопПараметры) Экспорт
	Если МассивФайлов = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	Объект.ФайлExcel = МассивФайлов[0];

	ДвоичныеДанные = Новый ДвоичныеДанные(Объект.ФайлExcel);

	АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные);

	СкопироватьФайлНаСервер(АдресФайла);

	Элементы.ТабДок.Редактирование = Истина;
	
КонецПроцедуры

&НаСервере
Процедура СкопироватьФайлНаСервер(АдресФайла)
	ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(АдресФайла);
	
        АдресФайлаНаСервере = ПолучитьИмяВременногоФайла(".xls");

	ДвоичныеДанныеФайла.Записать(АдресФайлаНаСервере);

	ТабДок.Прочитать(АдресФайлаНаСервере);
КонецПроцедуры

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

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