Не читает экселевский файл

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8 1С:Управление торговлей 11 Платформа 1С v8.3

1. dtepeev 11.07.24 00:22 Сейчас в теме

Почему - то не читает таблицу в экселе.

вот код:

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

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

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

&НаКлиенте
Процедура ЗаписатьИзФайла(Команда)

Объект.ОценкаБонусныхБаллов.Очистить();
ПрочитатьФайл_XLS();

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

&НаКлиенте
Процедура ПрочитатьФайл_XLS();
	
ПрочитатьФайл_XLS_НаСервере();
	
КонецПроцедуры  

&НаСервере
Процедура ПрочитатьФайл_XLS_НаСервере();

ТабДок = Новый ТабличныйДокумент;

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

КоличествоСтрок = ТабДок.ВысотаТаблицы;

Для НомерСтроки = 2 По КоличествоСтрок Цикл

СтрокаДанных = Объект.ОценкаБонусныхБаллов.Добавить();
СтрокаДанных.Производитель = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0") + "C" + 1).ТекущаяОбласть.Текст;
СтрокаДанных.ОценкаБонусныхБалловЦенаБонусныхБалловПослеИзменения = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0") + "C" + 2).ТекущаяОбласть.Текст;

КонецЦикла;

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

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user2033930 11.07.24 00:56 Сейчас в теме

А давайте-ка догадаемся...

3. dtepeev 11.07.24 01:03 Сейчас в теме

(2)Я в 1с человек новый, только учусь. Не могу понять в чем проблема(

4. PhoenixAOD 62 11.07.24 04:34 Сейчас в теме

(3)тебе намякивают, что вот твой код и твое одно предложение ничего не говорят от слова совсем. Интересуются, что происходит при чтении файла. если выпадает ошибка то какая ошибка. Ферштейн?

5. starjevschik 11.07.24 06:38 Сейчас в теме

(3)

только учусь

спроси у своего преподавателя, не зря же он зарплату получает.

6. RustamZz 11.07.24 10:58 Сейчас в теме

(3) Потому, что имя файла получается на клиенте, а открывается на сервере, где его нет. Это как зарплату получать не купюрами, а их фотками в телеграме

7. starik-2005 3088 11.07.24 11:06 Сейчас в теме

(6) зачетная шутейка ))) Буду юзать.
ЗЫ: забыл уже, как выглядят купюры.

8. starik-2005 3088 11.07.24 11:09 Сейчас в теме

(1)

// где-то на клиенте
ПрочитатьФайлоНаСерваке(Новый ДвоичныеДанные(ИмяФайла));
//...

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

Показать

Оставьте свое сообщение

E-mail: