Как загрузить данные из Excel в табличную часть 1С обработкой с определенными ус

[Odineski]

Имеется эксель таблица , в ней есть 2 заполненных Столбца Должность и КодДолжности . Имеют тип оба Строка. Я создал обработку с ТабличнаяЧасть в которой 2 реквизита Должность и Код с таким же типом. В экселе нужно чтобы заполнял со второй строчки до предпоследней в эту обработку

[Odin — Одинэсник]

Чтобы из Excel загрузить данные из двух столбцов (Должность и КодДолжности) начиная со второй строки и до предпоследней, и заполнить табличную часть обработки с реквизитами Должность и Код (типа Строка), сделай так:

1. В обработке добавь кнопку «Загрузить из Excel».

2. В обработчике кнопки:

— Открой файл Excel через COM или через ТабличныйДокумент (если платформа 8.3.10+).

— Считай данные из нужных столбцов, начиная со второй строки и до предпоследней.

— Для каждой строки добавь новую строку в табличную часть и заполни реквизиты.

Пример кода с использованием ТабличногоДокумента (рекомендуется, если версия платформы позволяет):

1С (Код)

&НаКлиенте Процедура ЗагрузитьИзExcelНажатие(Кнопка) Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Фильтр = "Файлы Excel (*.xlsx)|*.xlsx|Все файлы (*.*)|*.*"; Если НЕ Диалог.Выбрать() Тогда Возврат; КонецЕсли; ИмяФайла = Диалог.ПолноеИмяФайла; Попытка ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(ИмяФайла); Исключение Сообщить("Ошибка при открытии файла: " + ОписаниеОшибки()); Возврат; КонецПопытки; // Очистим табличную часть перед загрузкой ТабличнаяЧасть.Очистить(); // Определим номера столбцов по заголовкам (если заголовки в первой строке) СтрокаЗаголовка = 1; КолДолжность = Неопределено; КолКод = Неопределено; Для НомерКолонки = 1 По ТабДок.КоличествоКолонок Цикл Значение = ТабДок.ПолучитьЯчейку(СтрокаЗаголовка, НомерКолонки); Если Значение = "Должность" Тогда КолДолжность = НомерКолонки; ИначеЕсли Значение = "КодДолжности" Тогда КолКод = НомерКолонки; КонецЕсли; КонецЦикла; Если КолДолжность = Неопределено Или КолКод = Неопределено Тогда Сообщить("В файле не найдены столбцы 'Должность' и/или 'КодДолжности'"); Возврат; КонецЕсли; // Считаем данные со второй строки до предпоследней НачальнаяСтрока = 2; КонечнаяСтрока = ТабДок.КоличествоСтрок - 1; Для НомерСтроки = НачальнаяСтрока По КонечнаяСтрока Цикл Должность = ТабДок.ПолучитьЯчейку(НомерСтроки, КолДолжность); Код = ТабДок.ПолучитьЯчейку(НомерСтроки, КолКод); Если ПустаяСтрока(Должность) И ПустаяСтрока(Код) Тогда Продолжить; КонецЕсли; НоваяСтрока = ТабличнаяЧасть.Добавить(); НоваяСтрока.Должность = ?(ТипЗнч(Должность) = Тип("Строка"), Должность, Стр(Должность)); НоваяСтрока.Код = ?(ТипЗнч(Код) = Тип("Строка"), Код, Стр(Код)); КонецЦикла; Сообщить("Данные успешно загружены из Excel"); КонецПроцедуры

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

&НаКлиенте Процедура ЗагрузитьИзExcelНажатие(Кнопка) Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Фильтр = "Файлы Excel (*.xlsx)|*.xlsx|Все файлы (*.*)|*.*"; Если НЕ Диалог.Выбрать() Тогда Возврат; КонецЕсли; ИмяФайла = Диалог.ПолноеИмяФайла; Попытка ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(ИмяФайла); Исключение Сообщить("Ошибка при открытии файла: " + ОписаниеОшибки()); Возврат; КонецПопытки; // Очистим табличную часть перед загрузкой ТабличнаяЧасть.Очистить(); // Определим номера столбцов по заголовкам (если заголовки в первой строке) СтрокаЗаголовка = 1; КолДолжность = Неопределено; КолКод = Неопределено; Для НомерКолонки = 1 По ТабДок.КоличествоКолонок Цикл Значение = ТабДок.ПолучитьЯчейку(СтрокаЗаголовка, НомерКолонки); Если Значение = "Должность" Тогда КолДолжность = НомерКолонки; ИначеЕсли Значение = "КодДолжности" Тогда КолКод = НомерКолонки; КонецЕсли; КонецЦикла; Если КолДолжность = Неопределено Или КолКод = Неопределено Тогда Сообщить("В файле не найдены столбцы 'Должность' и/или 'КодДолжности'"); Возврат; КонецЕсли; // Считаем данные со второй строки до предпоследней НачальнаяСтрока = 2; КонечнаяСтрока = ТабДок.КоличествоСтрок - 1; Для НомерСтроки = НачальнаяСтрока По КонечнаяСтрока Цикл Должность = ТабДок.ПолучитьЯчейку(НомерСтроки, КолДолжность); Код = ТабДок.ПолучитьЯчейку(НомерСтроки, КолКод); Если ПустаяСтрока(Должность) И ПустаяСтрока(Код) Тогда Продолжить; КонецЕсли; НоваяСтрока = ТабличнаяЧасть.Добавить(); НоваяСтрока.Должность = ?(ТипЗнч(Должность) = Тип("Строка"), Должность, Стр(Должность)); НоваяСтрока.Код = ?(ТипЗнч(Код) = Тип("Строка"), Код, Стр(Код)); КонецЦикла; Сообщить("Данные успешно загружены из Excel"); КонецПроцедуры

—

Объяснения:

— ТабличнаяЧасть — это твоя табличная часть обработки.

— Сначала открываем файл, читаем заголовки, находим номера нужных столбцов.

— Затем перебираем строки со 2-й по предпоследнюю.

— Пропускаем пустые строки.

— Добавляем строки в табличную часть, заполняем реквизиты.

—

Если версия платформы ниже 8.3.10 и нет ТабличногоДокумента, можно использовать COM-объект Excel, но это сложнее.

—

Рекомендую посмотреть примеры работы с ТабличнымДокументом и загрузкой из Excel:
https://infostart.ru/public/1249941/
https://infostart.ru/public/57697/

[Автор]

Сообщения