Как загрузить картинку из excel в таблицу значений 1С
По теме из базы знаний
- Импорт из EXCEL и других источников (xls, xlsx, xlsb, ods, sxc, dbf, mxl, csv, clipboard, sql) в 1С
- Загрузка из EXCEL в 1С на платформе 8.3.6/8.3.7/8.3.8/8.3.9/8.3.10 (с картинками)
- Как легко загружать данные из электронных таблиц (Excel, OpenOffice и т.д)
- Универсальная загрузка данных формата Excel
- Интеграции с маркетплейсами из одного окна: Озон, ВБ, Яндекс, Сбер, Али, ЛаМода для 1С:УНФ, УТ, КА, ERP
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) загрузить xls файл в табличный документ, пример записи картинки в справочник номенклатуры
&НаСервере
Процедура ЗагрузитьКартинкиНаСервере()
КоличествоСтрок=ФайлСодержимое.ВысотаТаблицы;
Если НомерПоследнейСтроки>0 Тогда
КоличествоСтрок=НомерПоследнейСтроки;
КонецЕсли;
Для сч=1 по КоличествоСтрок Цикл
Код=ФайлСодержимое.Область(сч,НомерСтолбцаКодНоменклатуры).Текст;
Если ЗначениеЗаполнено(Код) Тогда
Номенклатура=Справочники.Номенклатура.НайтиПоКоду(Код);
Если НЕ ЗначениеЗаполнено(Номенклатура.ФайлКартинки) Тогда
Область=ФайлСодержимое.ПолучитьОбласть(сч,НомерСтолбцаКартинка);
Если Область.Рисунки.Количество()>0 Тогда
Если ТипЗнч(Область.Рисунки[0]) = Тип("РисунокТабличногоДокумента") Тогда
ИмяФайла=КаталогВременныхФайлов()+Код+".png";
Область.Рисунки[0].Картинка.Записать(ИмяФайла);
ПараметрыФайла=Новый Структура;
ПараметрыФайла.Вставить("Автор",ПользователиКлиентСервер.ТекущийПользователь());
ПараметрыФайла.Вставить("ВладелецФайлов",Номенклатура);
ПараметрыФайла.Вставить("ИмяБезРасширения",Код);
ПараметрыФайла.Вставить("РасширениеБезТочки","png");
ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное",ТекущаяУниверсальнаяДата());
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);
АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
//ФС=ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);
ФС=РаботаСФайлами.ДобавитьФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);
Эл=Номенклатура.ПолучитьОбъект();
Эл.ФайлКартинки=ФС;
Эл.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот