geniynayk

04.05.2022 07:15

Другие предметы

Есть ответ 👍

ДоСа. Загрузка из Excel 1с код: &НаСервере
Процедура (Результат, ДополнительныеПараметры) Экспорт
Если Не (Результат = Неопределено) Тогда
СсылкаНаФайл = Результат[0];
КонецЕсли;
Попытка
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(СсылкаНаФайл);

Для Счетчик = 3 По ТабДок.ВысотаТаблицы Цикл
//заполнение справочника данными из файла
НовыйЭлемент = Справочники.РегиональныеКоды.СоздатьЭлемент();
НовыйЭлемент.Наименование = ТабДок.Область(Счетчик, 2).Текст;
НовыйЭлемент.НаименованиеАнгл = ТабДок.Область(Счетчик, 1).Текст;
НовыйЭлемент.КодПредмет = ТабДок.Область(Счетчик, 3).Текст;
НовыйЭлемент.КодРегиона = ТабДок.Область(Счетчик, 4).Текст;
НовыйЭлемент.OKATO = ТабДок.Область(Счетчик, 5).Текст;
НовыйЭлемент.ISO = ТабДок.Область(Счетчик, 6).Текст;
НовыйЭлемент.Записать();
КонецЦикла;
Сообщить("Данные успешно загружены");
Исключение
Сообщить("Не обнаружен файл");
КонецПопытки;
КонецПроцедуры

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