ДоСа. Загрузка из Excel 1с код: &НаСервере
Процедура (Результат, ДополнительныеПараметры) Экспорт
Если Не (Результат = Неопределено) Тогда
СсылкаНаФайл = Результат[0];
КонецЕсли;
Попытка
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(СсылкаНаФайл);
Для Счетчик = 3 По ТабДок.ВысотаТаблицы Цикл
//заполнение справочника данными из файла
НовыйЭлемент = Справочники.РегиональныеКоды.СоздатьЭлемент();
НовыйЭлемент.Наименование = ТабДок.Область(Счетчик, 2).Текст;
НовыйЭлемент.НаименованиеАнгл = ТабДок.Область(Счетчик, 1).Текст;
НовыйЭлемент.КодПредмет = ТабДок.Область(Счетчик, 3).Текст;
НовыйЭлемент.КодРегиона = ТабДок.Область(Счетчик, 4).Текст;
НовыйЭлемент.OKATO = ТабДок.Область(Счетчик, 5).Текст;
НовыйЭлемент.ISO = ТабДок.Область(Счетчик, 6).Текст;
НовыйЭлемент.Записать();
КонецЦикла;
Сообщить("Данные успешно загружены");
Исключение
Сообщить("Не обнаружен файл");
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьИзExcel(Команда)
//();
//выбор файла с рабочего стола
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Фильтр = "Загрузка данных (*.xls; *.xlsx) | *.xls; *.xlsx"; //фильтр файлов по расширению
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
ДиалогВыбораФайла.Показать(Новый ОписаниеОповещения("", ЭтотОбъект, Новый Структура));
КонецПроцедуры
139
446
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
missdrama14.02.2022 06:24
-
galiamikhajlova02.01.2020 08:29
-
frolovandrey77710.11.2020 05:13
-
squarenq14.04.2021 13:32
-
progonskaij25.10.2022 02:36
-
Pechenka10050025.08.2022 12:29
-
dayn91502.04.2021 13:20
-
vidadisaf12.04.2021 06:29
-
кукипро20.04.2021 18:22
-
MozgVeka15.01.2020 04:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.