Алгоритм загрузки изображений из excel по ссылке URL в реквизит основное изображение

НомерСтолбцаИзображение = 3;
НомерСтолбцаОписаниеИзобр ажение = 4; 


ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
| ХранилищеДополнительнойИн формации.Ссылка
|ИЗ
| Справочник.ХранилищеДопол� �ительнойИнформации КАК ХранилищеДополнительнойИн формации
|ГДЕ
| ХранилищеДополнительнойИн формации.Объект = &Объект
| И ХранилищеДополнительнойИн формации.Наименование = &Наименование";

Объект.Записать();

ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
Предупреждение(ФайлКартин� �и.Существует());
Если ФайлКартинки.Существует() Тогда
Предупреждение("!");
ЗапросСуществующих.Устано� �итьПараметр("Объект", Объект.Ссылка);
ЗапросСуществующих.Устано� �итьПараметр("Наименование" , СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]));
Выборка = ЗапросСуществующих.Выполн� �ть().Выбрать();
Если Выборка.Количество() <= 0 Тогда
Предупреждение("!!");
ХранилищеОбъект = Справочники.ХранилищеДопо� �нительнойИнформации.Созда тьЭлемент();
ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнит� �льнойИнформацииОбъектов.И зображение;
ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
ХранилищеОбъект.Объект = Объект.Ссылка;
ХранилищеОбъект.Наименова� �ие = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]);
ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
ХранилищеОбъект.Записать();
Объект.ОсновноеИзображени� �=ХранилищеОбъект.Ссылка;
КонецЕсли;
КонецЕсли;