PDA

Просмотр полной версии : Выгрузка данных



shaman_blr
08.02.2023, 15:01
нужно из excel загрузить в 1с элементы в справочник.
мой код просто загружает все элементы и все.
А нужно сделать Чтобы код "А" был группой с названием что на скрине , а "01" была подгруппой "А" и тоже название как на скрине
Прошу помощи.

Прогресс=0;
ТабДок = ПрочитатьТабличныйДокумен т();

ДанныеФайла = Новый ТаблицаЗначений;
ДанныеФайла.Колонки.Добави ть("Код");
ДанныеФайла.Колонки.Добави ть("Наименование");

Если не ТабДок=null тогда
КоличествоСтрокТаблицы = ТабДок.ВысотаТаблицы;
Для НомерСтрокиТаблицы = 2 по КоличествоСтрокТаблицы цикл



СтрокаДанных = ДанныеФайла.Добавить();
Область = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтрокиТаблицы,"ЧГ=0") + "C1");
ТекущаяОбласть = Область.ТекущаяОбласть;
СтрокаДанных.Код = СокрЛП(ТекущаяОбласть.Текс т);

Область = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтрокиТаблицы,"ЧГ=0") + "C2");
ТекущаяОбласть = Область.ТекущаяОбласть;
СтрокаДанных.Наименование = СокрЛП(ТекущаяОбласть.Текс т);

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

Сообщить(СтрокаДанных.Код +" " + СтрокаДанных.Наименование) ;
Прогресс = Окр(НомерСтрокиТаблицы/КоличествоСтрокТаблицы*100);

КонецЦикла;
Прогресс = 100;
Предупреждение("Выполнено!!!");
Прогресс = 0;
Картина не вставляется.

Документ excel выглядит так

Код Наименование
А ЙЦУ
01 ЦУЦУ
01.1 ЦУКЦУК

Нужно чтобы записалась А как группа, потом 01 как подгруппа "А", а 01.1 элемент группы "01"