Опять вопрос по Excel. Не читается через WEB

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

		Если НЕ Отказ Тогда
				ЧтениеЕксель1();
		КонецЕсли; 
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЧтениеЕксель1()
	Сообщить("1");

	ИННПоставщика = ПолучитьИНННаСервере(Объект.Поставщик);
	Если Нрег(Прав(СокрЛП(Объект.ПутьКФайлу), 1)) = "x" Тогда
	    Расширение = "xlsx";
	Иначе
		Расширение = "xls";
	КонецЕсли; 
	
	ИмяФайлаНаСервере = ПолучитьИмяВременногоФайла(Расширение);
	ФайлНаСервере = ПолучитьИзВременногоХранилища(АдресФайлаНаСервере);
	ФайлНаСервере.Записать(ИмяФайлаНаСервере);


	xlLastCell=11;
	ВыбФайл= Новый Файл(ИмяФайлаНаСервере);

	Попытка
		Сообщить("2.1");

		Excel= Новый COMОбъект("Excel.Application");
		Сообщить("2.2");
		Excel.WorkBooks.Open(ВыбФайл);
		Сообщить("2.3");
		ExcelЛист=Excel.Sheets(1);
		Сообщить("2.4");
	Исключение
		СостояниеЗагрузки=Строка("Ошибка. Возможно неверно указан номер листа книги Excel.");
		Возврат;
	КонецПопытки;
	Сообщить("3.1");
	Объект.ДанныеЗагрузки.Очистить();
	Сообщить("3.2");
	ActiveCell=Excel.ActiveCell.SpecialCells(xlLastCell);
	Сообщить("3.3");
	RowCount=ActiveCell.Row;
	Сообщить("3.4");
	ColumnCount=ActiveCell.Column;
	Для Row=1 По RowCount Цикл
		Сообщить("4");

		Стр=СОКРЛП(ExcelЛист.Cells(Row,НачСтрока).Text);
		Если (СтрДлина(Стр)>0 И СтрДлина(Стр)<6) Тогда
			Попытка 
				НомерСтроки=Число(Стр);
			Исключение
				НомерСтроки=0;
			КонецПопытки;	
			Если НомерСтроки>0 Тогда
				Стр=СОКРЛП(ЧисткаСТРназвание(ExcelЛист.Cells(Row,кНаименование).Text));
				Если СтрДлина(Стр)>6 Тогда
					СтрокаТ=Объект.ДанныеЗагрузки.Добавить();
					СтрокаТ.Наименование=Стр;
					Если кАртикул>0 тогда
					СтрокаТ.Артикул=СОКРЛП(ExcelЛист.Cells(Row,кАртикул).Text); // Ячейка с кодом товара в текущей строке
					КонецЕсли;
............
	Excel.WorkBooks.Close();
	Excel=0;
КонецПроцедуры

&НаСервере
Процедура ЧтениеЕксель2()
	
	ИННПоставщика = ПолучитьИНННаСервере(Объект.Поставщик);
	Если Нрег(Прав(СокрЛП(Объект.ПутьКФайлу), 1)) = "x" Тогда
	    Расширение = "xlsx";
	Иначе
		Расширение = "xls";
	КонецЕсли; 
	
	ИмяФайлаНаСервере = ПолучитьИмяВременногоФайла(Расширение);
	ФайлНаСервере = ПолучитьИзВременногоХранилища(АдресФайлаНаСервере);
	ФайлНаСервере.Записать(ИмяФайлаНаСервере);
	Excel = Новый COMОбъект("Excel.Application");
	Excel.Application.Workbooks.Open(ИмяФайлаНаСервере);
	Excel.DisplayAlerts = 0;
	ExcelSheet = Excel.Sheets(1);
	ВсегоСтрок = ExcelSheet.Cells.SpecialCells(11).Row;
	ВсегоКолонок = ExcelSheet.Cells.SpecialCells(11).Column +  ExcelSheet.Cells.SpecialCells(11).Columns.Count - 1;
	ExcelSheetRange = ExcelSheet.Range(ExcelSheet.Cells(НачСтрока, 1), ExcelSheet.Cells(КонСтрока, ВсегоКолонок));
	Данные = ExcelSheetRange.Value.Выгрузить();
		Попытка
		Артикулы 		= ?(кАртикул <= 0, Неопределено, Данные[кАртикул - 1]);;
		Наименования 	= ?(кНаименование <= 0, Неопределено, Данные[кНаименование - 1]);
...............

	Исключение
		Сообщить(ОписаниеОшибки());
		Данные = Неопределено;
	КонецПопытки; 
	Объект.ДанныеЗагрузки.Очистить();
	Для Сч = 0 По КонСтрока - НачСтрока Цикл //- 1 Цикл
		Если Данные = Неопределено Тогда
			Прервать;
		КонецЕсли; 	
		СтрокаТЧ = Новый Структура("Артикул, Наименование, ШтрихКод1, ЕдиницаИзФайла, СтавкаНДСИзФайла, Количество, Цена, Сумма"); 
		СтрокаТЧ.Артикул 				= ?(Артикулы = Неопределено, "", СокрЛП(Артикулы[Сч]));
		СтрокаТЧ.Наименование 			= ?(Наименования = Неопределено, "", СокрЛП(Наименования[Сч]));
.............
		СтрокаЗагрузки = Объект.ДанныеЗагрузки.Добавить();
		ЗаполнитьЗначенияСвойств(СтрокаЗагрузки, СтрокаТЧ);
	КонецЦикла; 
	Данные = Неопределено;
	ExcelSheetRange = Неопределено;
	ВсегоСтрок = Неопределено;
	ExcelSheet = Неопределено;
	Excel.Application.Workbooks(1).Close();
	Excel.Quit();
	Excel = Неопределено;
КонецПроцедуры