Попытка ТабДок.Прочитать(ПутьКФайлуНаСервере,СпособЧтенияЗначенийТабличногоДокумента.Значение); Исключение Сообщение=Новый СообщениеПользователю; Сообщение.Текст="Не удалось прочитать файл по причине"+ОписаниеОшибки(); Сообщение.Сообщить(); Возврат; КонецПопытки; КоличествоСтрок=ТабДок.ВысотаТаблицы;
Русским по белому написано, что не может быть получен доступ к файлу. У Вас чтение на сервере происходит, а файлик на клиентской машине. В чем проблема на клиенте прочитать файл?
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выбор файла";
Диалог.Фильтр = "Файл Excel (*.xls)|*.xls";
Диалог.ИндексФильтра = 0;
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.МножественныйВыбор = Ложь;
Если Диалог.Выбрать() Тогда
Объект.ПутьКФайлу=Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПолучитьДоговора(Команда)
ДанныеПути=Новый ДвоичныеДанные(Объект.ПутьКФайлу);
АдресДанных=ПоместитьВоВременноеХранилище(ДанныеПути);
ПолучитьДоговораНаСервере(АдресДанных);
КонецПроцедуры
&НаСервере
Процедура ПолучитьДоговораНаСервере(АдресДанных)
ТабДок=Новый ТабличныйДокумент;
Данные=ПолучитьИзВременногоХранилища(АдресДанных);
ПутьКФайлуНаСервере=ПолучитьИмяВременногоФайла("xls");
Данные.Записать(ПутьКФайлуНаСервере);
Попытка
ТабДок.Прочитать(ПутьКФайлуНаСервере,СпособЧтенияЗначенийТабличногоДокумента.Значение);
Исключение
Сообщение=Новый СообщениеПользователю;
Сообщение.Текст="Не удалось прочитать файл по причине"+ОписаниеОшибки();
Сообщение.Сообщить();
Возврат;
КонецПопытки;
КоличествоСтрок=ТабДок.ВысотаТаблицы;
Для НомерСтроки=2 по КоличествоСтрок Цикл
СтрокаТаблицы=Объект.ДанныеФайла.Добавить();
СтрокаТаблицы.Дата=ТекущаяДата();
СтрокаТаблицы.Номер="";
СтрокаТаблицы.ТипДокумента=Документы.ДоговорРаботыУслуги;
СтрокаТаблицы.Организация="";
СтрокаТаблицы.Сотрудник="";
СтрокаТаблицы.Сумма="";
СтрокаТаблицы.Начало=Объект.ДатаНачала;
СтрокаТаблицы.Окончание=Объект.ДатаОкончания;
СтрокаТаблицы.МесяцНачисления=Объект.Месяц;
СтрокаТаблицы.Комментарий="";
КонецЦикла;
КонецПроцедуры