Как загрузить картинку из 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 (с картинками)
- Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0
- Как легко загружать данные из электронных таблиц (Excel, OpenOffice и т.д)
- Загрузка чеков в 1С из ФНС в документы БП, УНФ, ERP, КА и УТ
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) загрузить xls файл в табличный документ, пример записи картинки в справочник номенклатуры
&НаСервере
Процедура ЗагрузитьКартинкиНаСервере()
КоличествоСтрок=ФайлСодержимое.ВысотаТаблицы;
Если НомерПоследнейСтроки>0 Тогда
КоличествоСтрок=НомерПоследнейСтроки;
КонецЕсли;
Для сч=1 по КоличествоСтрок Цикл
Код=ФайлСодержимое.Область(сч,НомерСтолбцаКодНоменклатуры).Текст;
Если ЗначениеЗаполнено(Код) Тогда
Номенклатура=Справочники.Номенклатура.НайтиПоКоду(Код);
Если НЕ ЗначениеЗаполнено(Номенклатура.ФайлКартинки) Тогда
Область=ФайлСодержимое.ПолучитьОбласть(сч,НомерСтолбцаКартинка);
Если Область.Рисунки.Количество()>0 Тогда
Если ТипЗнч(Область.Рисунки[0]) = Тип("РисунокТабличногоДокумента") Тогда
ИмяФайла=КаталогВременныхФайлов()+Код+".png";
Область.Рисунки[0].Картинка.Записать(ИмяФайла);
ПараметрыФайла=Новый Структура;
ПараметрыФайла.Вставить("Автор",ПользователиКлиентСервер.ТекущийПользователь());
ПараметрыФайла.Вставить("ВладелецФайлов",Номенклатура);
ПараметрыФайла.Вставить("ИмяБезРасширения",Код);
ПараметрыФайла.Вставить("РасширениеБезТочки","png");
ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное",ТекущаяУниверсальнаяДата());
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);
АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
//ФС=ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);
ФС=РаботаСФайлами.ДобавитьФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);
Эл=Номенклатура.ПолучитьОбъект();
Эл.ФайлКартинки=ФС;
Эл.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот