Ранее создавал тему, где спрашивал как на макете сделать гиперссылку на сайт. Это кое как победил. Теперь нужно этот макет сохранить эксель, и чтобы гиперссылка в экселе осталась работоспособной. Я понимаю что это можно как то через com объект сделать, ну а есть пути проще? Может кто знает.

(0) Как то через соm...

(0) обсуждали, делали - очень давно - ищи...

только через COM

Стандартно сохрани в эксель, потом обойди полученный файл поячеечно и запиши что нужно. Проще чем делать файл целиком программно.

(0)
v8: Подскажите пожалуйста господа как сделать гиперссылку в Экселе

(5) Из твоей ссылки, по этому
олеЕксель = новый COMОбъект("Excel.Application");
олеКнига = олеЕксель.Workbooks.Open("c:\Новый.xls");
олеЛист = олеКнига.Worksheets.Item(1);
олеЯчейка = олеЛист.Cells(6, 6);
олеВыделеный = олеЯчейка.Select();
олеЯчейка.Hyperlinks.Add(олеЕксель.Selection, "", "Лист2!R4C4", "Описание ссылки", "Ссылка");

Делаю вот так

Ссылка = Лист.Cells(НомерСтроки,3).Comment.Shape.OLEFormat.Object.Caption;
                Лист.Cells(НомерСтроки,3).Hyperlinks.Add(Лист.Cells(НомерСтроки,3), "", "'Прайс общий'!R1C1", "ссылка", Ссылка);

В ссылке у меня точно лежит ERL.
Выдает ошибку
{Форма.ФормаЗаполнения.Форма(361)}: Ошибка при вызове метода контекста (Add)
                Лист.Cells(НомерСтроки,3).Hyperlinks.Add(Лист.Cells(НомерСтроки,3), "", "'Прайс общий'!R1C1", "ссылка", Ссылка);
по причине:
Неизвестная ошибка

ап

может Книга.Hyperlinks.Add

https://msdn.microsoft.com/en-us/library/office/ff822490.aspx

(8)+
т.е. Лист.Hyperlinks.Add

(10) Вообщем и это да, и книгу еще открывать нужно.

// вЛистХЛС = ОкноЕхс.Workbooks(ВыбФ).Sheets(1);
Если (Лев(Зн1С,11) = "http://www.";) ИЛИ (Лев(Зн1С,7) = "http://";)  Тогда                
    вСтрДиап = НазваниеСтолбца(СчКолонок)+Строка(СчРядов);
    вСтрДиап = вСтрДиап + ":"+вСтрДиап;
    вЛистХЛС.Hyperlinks.Add(вЛистХЛС.Range(вСтрДиап),Зн1С);
    ЯЧейка1 = вЛистХЛС.Cells(СчРядов,СчКолонок);
    ЯЧейка1.Value = "Подробное описание";
ИначеЕсли (Лев(Зн1С,12) = "%http://www.";) ИЛИ (Лев(Зн1С,8) = "%http://";)  Тогда
    Зн1С = Сред(Зн1С,2);
    вСтрДиап = НазваниеСтолбца(СчКолонок)+Строка(СчРядов);
    вСтрДиап = вСтрДиап + ":"+вСтрДиап;
    вЛистХЛС.Hyperlinks.Add(вЛистХЛС.Range(вСтрДиап),Зн1С);
    ЯЧейка1 = вЛистХЛС.Cells(СчРядов,СчКолонок);
    ЯЧейка1.Value = "Видео";
КонецЕсли;

Всем спасибо за помощь) Теперь вопрос в другом) Пишу формулу) Когда написал для двух ячеек все норм:
Лист.Cells(НомерСтроки,КолонкаСумма).Value = "="+"R"+Строка(СтрЗаменить(НомерСтроки,Символы.НПП,""))+"C"+Строка(КолонкаЗаказ)+"*"+"R"+Строка(СтрЗаменить(НомерСтроки,Символы.НПП,""))+"C"+Строка(КолонкаЦены);

А когда пишу для области, то при открытии экселя в ячейке пишеться "#ИМЯ?" Делаю так:
Лист.Cells(СтрокаСуммаЗаказа+1,КолонкаСуммаЗаказа).Value ="=СУММ(R"+Строка(СтрЗаменить(НачалоОбласти,символы.НПП,""))+"C:R"+Строка(СтрЗаменить(КонецОбласти,символы.НПП,""))+"C)";

После того, как два раза щелкну мышкой на эту ячейку, то эта ошибка пропадает, и формула работает.

Лист.Cells(НомерСтроки,КолонкаСумма).FormulaR1C1 = ...

(15) Ничего не поменялось

НачалоОбласти и КонецОбласти - числа?

(17) Да. Отладка этой формулы у меня показывает "=СУММ(R15C:R20C)". Что собственно встает и в экселе. Но формула видитется правильной, только после того, как два раза щелкну по ней мышкой, и нажму ентер.

Лист.Cells(НомерСтроки,КолонкаСумма).FormulaLocal = ...

(19) Да, помогло! Спасибо большое!

(19) И еще параллельный вопрос, если случиться ошибка, то в исключение пишу:
Результат.Application.Quit();

Чтобы процесс экселя закрылся и не весел как рабочий, потому что если он не даст ничего делать с файлом пока этот процесс будет висет. Но этот код не убивает эксель. Может какой то другой метод?

(21)
олеКнига.Close();
олеЕксель.Quit();