Добаить изображение с гиперссылкой 1С

Нужно программно добавить по COM из 1С на лист Excel изображение с гиперссылкой, которая ведет на другой лист.

Верх = Ячейка.Top+3; Лево = Ячейка.Left+145 ; ВысотаКартинки = 55; ШиринаКартинки = 140; Изображение =ДобавленныйЛист.Shapes.AddPicture(Стрелка, Истина, Истина, Лево, Верх, ШиринаКартинки, ВысотаКартинки); ДобавленныйЛист.Hyperlinks.Add(Изображение, , "ГЛАВНАЯ!R1C");

Скачать сайт

Для того, что бы скачать сайт, нужна программа wget

а далее, открываем командную строку

wget64.exe -U "Mozilla / 5.0 (Windows; U; Windows NT 5.1; де; с.в .: 1.9.2.3) Gecko / 20100401 Firefox / 3.6.3" -r -l10 -k https://NameSite.com/ -np

ждем

Печать в несколько колонок

&НаСервере Функция ПечатьКолонкамиНаСервере() Обработка = РеквизитФормыВЗначение("Объект"); Макет = Обработка.ПолучитьМакет("Шаблон_480х166_Товары"); Область = Макет.ПолучитьОбласть("Область|Область1"); табДок = Новый ТабличныйДокумент; КоличествоКолонок = 1; Для Каждого Эл Из Объект.Товары Цикл Область.Параметры.Код = Эл.Номенклатура.Артикул; Область.Параметры.Наименование = Эл.Номенклатура.НаименованиеПолное; Если КоличествоКолонок = 1 Или КоличествоКолонок = 5 Тогда //печать в 4 колонки табДок.Вывести(Область); КоличествоКолонок = 1; Иначе табДок.Присоединить(Область); КонецЕсли; КоличествоКолонок = КоличествоКолонок + 1; КонецЦикла; Возврат табДок; КонецФункции

СКД из ТаблицыЗначений \ ВнешниеИсточники

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; // Подготавливаем таблицу значений ДоходДоллар = ДоходДолларПолучить(); РасходГривна = РасходГривнаПолучить(); РасходДоллар = РасходДолларПолучить(); РасходыПроизводство = РасходыПроизводствоПолучить(); ТаблицаРезультат = Новый ТаблицаЗначений; ТаблицаРезультат.Колонки.Добавить("ДоходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходГривна"); ТаблицаРезультат.Колонки.Добавить("РасходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходыПроизводство"); новстр = ТаблицаРезультат.Добавить(); новстр.ДоходДоллар = 10; новстр.РасходГривна = 13; новстр.РасходДоллар = 111; новстр.РасходыПроизводство = 8; новстр.ДоходДоллар = ДоходДоллар; новстр.РасходГривна = РасходГривна; новстр.РасходДоллар = РасходДоллар; новстр.РасходыПроизводство = РасходыПроизводство; //Получаем схему из макета СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); //Из схемы возьмем настройки по умолчанию Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию; //Помещаем в переменную данные о расшифровке данных ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных; //Формируем макет, с помощью компоновщика макета КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; //Передаем в макет компоновки схему, настройки и данные расшифровки МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки); //Выполним компоновку с помощью процессора компоновки ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, Новый Структура("ТаблицаРезультат", ТаблицаРезультат), ДанныеРасшифровки); //Очищаем поле табличного документа ДокументРезультат.Очистить(); //Выводим результат в табличный документ ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(ДокументРезультат); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); КонецПроцедуры

Получить последнюю запись в итогах СКД (ресурсы)

ВычислитьВыражение("Долг", , , "Последняя")

результат