Загрузка Эксель файла

@Franc07 · Регистрация: 29.12.2023

Студворк — интернет-сервис помощи студентам

Добрый день. Задача с помощью внешней обработки загрузить данные из эксель файла в табл.часть документа. Сделал загрузку в таблчасть обработки, как дальше загрузить в документ не пойму. ПутьВыбораФайла - реквизит выбора файла;ТаблЗнач- табл.часть обработки

Прошу помогите...застрял, вот код:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ЭтотОбъект.Открыть();  
КонецПроцедуры
 
 
&НаКлиенте
Процедура ПутьВыбораФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
 
    СтандартнаяОбработка = Ложь;
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Заголовок = "Выбор файла";
    Диалог.Фильтр = "Excel файлы(*.xls; *.xlsx)|*.xls; *.xlsx";
    Диалог.ИндексФильтра = 0;
    Диалог.ПредварительныйПросмотр = Ложь;
    Диалог.ПроверятьСуществованиеФайла = Истина;
    Диалог.МножественныйВыбор = Ложь;
    Диалог.ПолноеИмяФайла = ПутьВыбораФайла;
    
    Если Диалог.Выбрать() Тогда
        ПутьВыбораФайла = Диалог.ПолноеИмяФайла;
    КонецЕсли; 
 
КонецПроцедуры
 
 &НаСервере
Процедура  ЗагрузитьВТабличнуюЧастьОбработки(АдресВременногоХранилища)        
    ТабДок = Новый ТабличныйДокумент;
        
    ДанныеВХ = ПолучитьИзВременногоХранилища(АдресВременногоХранилища); хранилища в переменную ДанныеВХ
    ПутьКФайлуНаСервере = ПолучитьИмяВременногоФайла("xls"); 
    ДанныеВХ.Записать(ПутьКФайлуНаСервере);
    
    Попытка
        ТабДок.Прочитать(ПутьКФайлуНаСервере,СпособЧтенияЗначенийТабличногоДокумента.Значение); 
        
    Исключение
        Сообщение = Новый СообщениеПользователю; 
        Сообщение.Текст = "Не удалось прочитать указанный файл" + ОписаниеОшибки();
        Сообщение.Сообщить();
        Возврат
        КонецПопытки;
 
    КоличествоСтрок = ТабДок.ВысотаТаблицы; 
    
    ДанныеФайла = Новый ТаблицаЗначений; 
    ДанныеФайла.Колонки.Добавить("ФИО");
    ДанныеФайла.Колонки.Добавить("Сумма");
    
    Для НомерСтроки = 1 По КоличествоСтрок Цикл  
        СтрокаДанных = ДанныеФайла.Добавить(); 
        Строк= ТабДок.Область(НомерСтроки, 2).Текст;  
        СтрокаСумма  = СтрЗаменить(Строк,".",",");   
        СтрокаДанных.Сумма  = Число(СтрокаСумма);   
        СтрокаДанных.ФИО= ТабДок.Область(НомерСтроки, 3).Текст;
    КонецЦикла;
    
    ТаблЗнач.Загрузить(ДанныеФайла); 
    
  КонецПроцедуры
 
 
 
&НаКлиенте            
Процедура ЗагрузкаВОбработку(Команда)
    ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ПутьВыбораФайла); //создаем переменную с данными из переменной ПутьКФайлу, передаем параметром.
    АдресВременногоХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла); //загружаем эксель во временное хранилище
    
    ЗагрузитьВТабличнуюЧастьОбработки(АдресВременногоХранилища);
 
КонецПроцедуры

@Yulunga · 11.07.2024, 12:38

вот из типовой первое что попалось

1C
1
2
3
4
5
6
7
        КонвертированныеПоказатели = Новый ТаблицаЗначений;
        
        Если ТипЗнч(КонвертируемыеПоказатели) = Тип("ТаблицаЗначений") Тогда
            КонвертированныеПоказатели = КонвертируемыеПоказатели.Скопировать();
        Иначе
            КонвертированныеПоказатели = ДанныеФормыВЗначение(КонвертируемыеПоказатели, Тип("ТаблицаЗначений"));
        КонецЕсли;

Добавлено через 24 секунды
а вы хотите таблицу значений сконвертировать в целый объект. думаю тут неправильно

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .