1С 8.3 Конвертируем Excel в Таблицу значений
Данные > Примеры кода 1С > 1С 8.3 Таблица значений
Перейти в основной раздел:
Выгружаем данные в Таблицу значений из Excel (&НаСервере) в 1С 8.3:
&НаСервере
Функция Конвертация_Excel_в_ТЗ(АдресВХранилище)
ИмяФайлаExcel = ПолучитьИмяВременногоФайла(".xlsx"); // или реквизит с выбором файла .xlsx
ФайлИмпортаExcel = ПолучитьИзВременногоХранилища(АдресВХранилище);
ФайлИмпортаExcel.Записать(ИмяФайлаExcel);
ТабличныйДокумент = Новый ТабличныйДокумент;
Попытка
ТабличныйДокумент.Прочитать(ИмяФайлаExcel, СпособЧтенияЗначенийТабличногоДокумента.Текст);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
//Автоматически именует столбцы таблицы по первой строке файла. Пробелы заменяются на ""
ПЗ = Новый ПостроительЗапроса;
ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());
ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
ПЗ.ЗаполнитьНастройки();
ПЗ.Выполнить();
ТаблицаСДанными = ПЗ.Результат.Выгрузить();
Возврат ТаблицаСДанными;
КонецФункции
Функция Конвертация_Excel_в_ТЗ(АдресВХранилище)
ИмяФайлаExcel = ПолучитьИмяВременногоФайла(".xlsx"); // или реквизит с выбором файла .xlsx
ФайлИмпортаExcel = ПолучитьИзВременногоХранилища(АдресВХранилище);
ФайлИмпортаExcel.Записать(ИмяФайлаExcel);
ТабличныйДокумент = Новый ТабличныйДокумент;
Попытка
ТабличныйДокумент.Прочитать(ИмяФайлаExcel, СпособЧтенияЗначенийТабличногоДокумента.Текст);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
//Автоматически именует столбцы таблицы по первой строке файла. Пробелы заменяются на ""
ПЗ = Новый ПостроительЗапроса;
ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());
ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
ПЗ.ЗаполнитьНастройки();
ПЗ.Выполнить();
ТаблицаСДанными = ПЗ.Результат.Выгрузить();
Возврат ТаблицаСДанными;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник