Показано с 1 по 1 из 1
Тема: Выгрузка данных
Древовидный режим
-
08.02.2023, 15:01 #1
- Регистрация
- 08.02.2023
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Выгрузка данных
нужно из excel загрузить в 1с элементы в справочник.
мой код просто загружает все элементы и все.
А нужно сделать Чтобы код "А" был группой с названием что на скрине , а "01" была подгруппой "А" и тоже название как на скрине
Прошу помощи.
Код:Прогресс=0; ТабДок = ПрочитатьТабличныйДокумент(); ДанныеФайла = Новый ТаблицаЗначений; ДанныеФайла.Колонки.Добавить("Код"); ДанныеФайла.Колонки.Добавить("Наименование"); Если не ТабДок=null тогда КоличествоСтрокТаблицы = ТабДок.ВысотаТаблицы; Для НомерСтрокиТаблицы = 2 по КоличествоСтрокТаблицы цикл СтрокаДанных = ДанныеФайла.Добавить(); Область = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтрокиТаблицы,"ЧГ=0") + "C1"); ТекущаяОбласть = Область.ТекущаяОбласть; СтрокаДанных.Код = СокрЛП(ТекущаяОбласть.Текст); Область = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтрокиТаблицы,"ЧГ=0") + "C2"); ТекущаяОбласть = Область.ТекущаяОбласть; СтрокаДанных.Наименование = СокрЛП(ТекущаяОбласть.Текст); Для каждого ТекСтрока из ДанныеФайла цикл спр = Справочники.СВ_КлассификаторПродукцииПоВидамЭкономическойДеятельности; НовыйЭлемент = спр.СоздатьЭлемент(); НовыйЭлемент.Код = ТекСтрока.Код; НовыйЭлемент.Наименование = ТекСтрока.Наименование; Попытка НовыйЭлемент.Записать(); Исключение Сообщить("Не удалось записать элемент! Код="+ТекСтрока.Код); Продолжить; КонецПопытки; КонецЦикла; Сообщить(СтрокаДанных.Код +" " + СтрокаДанных.Наименование); Прогресс = Окр(НомерСтрокиТаблицы/КоличествоСтрокТаблицы*100); КонецЦикла; Прогресс = 100; Предупреждение("Выполнено!!!"); Прогресс = 0;
Документ excel выглядит так
Код Наименование
А ЙЦУ
01 ЦУЦУ
01.1 ЦУКЦУК
Нужно чтобы записалась А как группа, потом 01 как подгруппа "А", а 01.1 элемент группы "01"
Похожие темы
-
Выгрузка данных из ЗУП 3.1 в БП 2
от MrShadow в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 13.11.2019, 13:27 -
В 1С 7.7 не открывается выгрузка данных
от OlgaK в разделе 1С - Предприятие 7.7Ответов: 1Последнее сообщение: 14.01.2014, 10:03 -
Выгрузка данных из 8.2 в формат DBF
от Fanata в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 1Последнее сообщение: 05.01.2014, 00:18 -
Выгрузка данных из ЗУП
от Uizlik в разделе ПолезностиОтветов: 1Последнее сообщение: 16.06.2012, 12:58 -
Ошибка при загрузке данных через (Обработка "Выгрузка и загрузка данных XML")
от Сергей_87 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 2Последнее сообщение: 26.04.2012, 14:13
Социальные закладки