1С 8.3 Получить таблицу значений из Excel

Данные > Примеры кода 1С > 1С 8.3 Табличный документ / Макет

ПРИМЕРЫ КОДА 1С

Перейти в основной раздел:

Получить таблицу значений из Excel (используя ТабличныйДокумент) в 1С 8.3:

Перем Файл; // путь к выбранному файлу

Процедура ПолучитьТаблДокВТЗ(Кнопка)

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

   // Чтение табличного документа (например файл *.xls)
   ТаблДок = Новый ТабличныйДокумент;
   ТаблДок.Прочитать(Файл, СпособЧтенияЗначенийТабличногоДокумента.Текст);

   ВысотаТаблДок = ТаблДок.ВысотаТаблицы; // Количество строк в таблице

   // Обход строк табличного документа и заполнение таблицы значений
   Для Строка = 2 По ВысотаТаблДок Цикл
       Стр = ТЗ.Добавить();
       Стр.Наименование = ПолучитьСодержаниеЯчейки(ТаблДок, Строка, 1);
       Стр.Код = ПолучитьСодержаниеЯчейки(ТаблДок, Строка, 2);
   КонецЦикла;

КонецПроцедуры

Функция ПолучитьСодержаниеЯчейки(ТаблДок, Строка, Колонка)

   Если Колонка = 0 Тогда
       Возврат "";
   КонецЕсли;

   СодержаниеДок = ТаблДок.Область("R" + Формат(Строка,"ЧГ=") + "C" + Формат(Колонка,"ЧГ=")).Текст;

   Возврат СокрЛП(СодержаниеДок);

КонецФункции

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник