Ошибка доступа к файлу при попытке прочтения файла Excel на сервере

&НаСервере
Функция СохранитьФайлНаСервере(Адрес, лб_ЭтоФайл1С, лстр_Результат)
	
	Если лб_ЭтоФайл1С Тогда
		лстр_ИмяФайла = ПолучитьИмяВременногоФайла("mxl");
	Иначе
		лстр_ИмяФайла = ПолучитьИмяВременногоФайла("xls");
	КонецЕсли;
	ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
	Попытка
		ДанныеХранилища.Записать(лстр_ИмяФайла);
	Исключение
		Возврат "Не удалось переместить файл на сервер по причине: " + ОписаниеОшибки();	
	КонецПопытки;
	Возврат лстр_ИмяФайла;
	
КонецФункции

&НаСервере
Функция ПрочитатьФайлНаСервере(лстр_ИмяФайлаНаСервере, ВхРезультат)
	
	ТабДокументЕксель = Новый ТабличныйДокумент;
	Попытка 
		ТабДокументЕксель.Прочитать(лстр_ИмяФайлаНаСервере);
	Исключение
		ВхРезультат = ("Не удалось прочитать указанный файл по причине: " + ОписаниеОшибки());
		Возврат Неопределено;
	КонецПопытки;
	Возврат ТабДокументЕксель;
	
КонецФункции

&НаКлиенте
Процедура ЗагрузитьДанныеИзЭксель(Команда)
	
	Если НЕ ЗначениеЗаполнено(ИмяФайла) Тогда
		ВывестиСообщениеПользователю("Не указн файл.");
		Возврат;
	КонецЕсли;
	лстр_ИмяФайла = СокрЛП(ИмяФайла);
	ТекФайл = Новый Файл(лстр_ИмяФайла);
	Если НЕ ТекФайл.Существует() Тогда
		ВывестиСообщениеПользователю("Указанный файл отсутствует.");
		Возврат;
	КонецЕсли;
	
	лстр_Расширение = НРег(Прав(лстр_ИмяФайла, 3));
	лб_ЭтоФайл1С = Ложь;
	Если лстр_Расширение = "mxl" Тогда
		лб_ЭтоФайл1С = Истина;
	КонецЕсли;
	
	//Передадим файл на сервер
	ДвоичныеДанные = Новый ДвоичныеДанные(лстр_ИмяФайла);
    Адрес = ПоместитьВоВременноеХранилище(ДвоичныеДанные, Новый УникальныйИдентификатор);
	лстр_Результат = "";
	лстр_ИмяФайлаНаСервере = СохранитьФайлНаСервере(Адрес, лб_ЭтоФайл1С, лстр_Результат);
	Если лстр_Результат <> "" Тогда
		ВывестиСообщениеПользователю(лстр_Результат);
		Возврат;
	КонецЕсли;

	//Получим табличный документ на сервере из файла
	ТабДокументЕксель = ПрочитатьФайлНаСервере(лстр_ИмяФайлаНаСервере, лстр_Результат);
	Если лстр_Результат <> "" Тогда
		ВывестиСообщениеПользователю(лстр_Результат);
		Возврат;
	КонецЕсли;
	
	//Получим данные из табличного документа
	ПрочитатьДанныеИзТабличногоДокумента(ТабДокументЕксель);