1с табличный документ гиперссылка в ячейке excel

Добавляю в отчет в экселе гиперссылки с помощью следующего кода:

excel = Новый COMОбъект(«Excel.Application»);

Книга = excel.WorkBooks.Open(ПутьКФайлуотчета);

List = Книга.Sheets(1);

ВсегоСтрок = List.Cells(1,1).SpecialCells(11).Row;

Для i=1 по ВсегоСтрок цикл

Hyperlink = «…»;

List.Hyperlinks.Add(List.Cells(i,5), Hyperlink, , , СокрЛП(List.Cells(i,5).Text));

КонецЦикла;

Все работает, но при большом количестве строк процесс занимает много времени, хотелось бы его ускорить, кто-нибудь может предложить более быстрый вариант?

у нас так:

Ячейка = Лист.Cells(Строка, й0);

Ячейка.Hyperlinks.Add(Ячейка, ГиперСсылка);

>>Все работает, но при большом количестве строк процесс занимает много времени, хотелось бы его ускорить, кто-нибудь может предложить более быстрый вариант?

Сформируй табличный документ с гиперссылками, сохрани в xlsx

>>помимо COMОбъект(«Excel.Application»), который использовать вроде как не рекомендует Майкрософт?

наркоман штоле©

>>если задача локальная то в разы быстрее

и ты наркоман

Еще я у тебя в коде Application.ScreenUpdating = Ложь

не вижу

(6)Сформируй табличный документ с гиперссылками, сохрани в xlsx

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

Application.ScreenUpdating = Ложь

Это зачем?

(6)>>помимо COMОбъект(«Excel.Application»), который использовать вроде как не рекомендует Майкрософт?

наркоман штоле©

https://support.microsoft.com/ru-ru/kb/257757

Корпорация Microsoft не советует производить и не поддерживает серверной автоматизации Office.

(9) Application.ScreenUpdating = Ложь  отключает обновление экрана Excel и ускоряет его работу.

(11) Ты это &НаСервере запускаешь?

Dolphinbet

14 — 28.07.16 — 15:42

Выгружаю из Эксель-файла в 1С данные. В файле есть гиперссылка (путь к файлу). Нашел через отладчик , в каком реквизите (Эксель.ActiveSheet.Cells(Строка,Колонка).Hyperlinks[0].Addres) находится путь, но программно не могу его вытащить. Как программно обратиться к Эксель.ActiveSheet.Cells(Строка,Колонка).Hyperlinks[0].Addres?

Работаю в 1С:Предприятие 8.3 (8.3.11.3034)
&НаКлиенте
Процедура Прочитать(Команда)

      Если ИмяФайла = «» Тогда
      Сообщить(«Файл не выбран» + ОписаниеОшибки());
      Возврат;
   КонецЕсли;

      Попытка
      Эксель = Новый COMОбъект(«Excel.Application»);
   Исключение
      Сообщить(ОписаниеОшибки());
      Возврат;
   КонецПопытки;   
   Книга = Эксель.WorkBooks.Open(ИмяФайла);   
   Лист = Книга.WorkSheets(1);       
   КоличествоЛистов = Книга.Sheets.Count;
   ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
   ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
   Для Строка = 1 По ВсегоСтрок Цикл   
      Для Колонка = 1 По ВсегоКолонок Цикл
         Гиперссылка = СокрЛП(Эксель.ActiveSheet.Cells(Строка,Колонка).Hyperlinks);   
         ОбработкаПрерыванияПользователя();         
      КонецЦикла;       
   КонецЦикла;
   Эксель.Application.Quit();
КонецПроцедуры

при попытке написать
Гиперссылка = СокрЛП(Эксель.ActiveSheet.Cells(Строка,Колонка).Hyperlinks[0].Addres);
выдает ошибку

Суть моей просьбы: Мне нужна гиперссылка (путь к файлу), то бишь его значение.

Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Выдает ошибку «Получение элемента по индексу для значения не определено»

Попробуйте вместо Hyperlinks[0] написать
Hyperlinks.Item(0)

{ВнешняяОбработка.РаботаcEXEl.Форма.Форма.Форма(23)}: Ошибка при вызове метода контекста (Hyperlinks)
         Значение1 = СокрЛП(Эксель.ActiveSheet.Cells(Строка,Колонка).Hyperlinks(0));   
по причине:
Произошла исключительная ситуация (0x8002000b)

1. Здравтсвуйте!
   надо сохранить табличный документ в excel и передать туда ссылку

   ТабДок.Записать(СокрЛП(ФайлВыгрузки),"XLS"); 
   Ексель = Новый COMОбъект("Excel.Application");
   Прайс = Ексель.Workbooks.Open(ФайлВыгрузки);
   Ячейка = Прайс.Sheets(1).Cells(5,7);
   Прайс.Sheets(1).Hyperlinks.Add(Ячейка,"http://rambler.ru";,,);
   
   

   гиперссылка работает очень странно… то есть , нужно несколько раз нажать на нее чтобы активизировать.
   и как задать отображаемое имя???

   спасибо

   Используйте тэг
   

2. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Вас интересует ScreenTip и TextToDisplay

3. 
   Извините, действительно новичок …
   знаю что нужно ScreenTip и TextToDisplay, но не знаю как из 1с это сделать.

   Прайс.Sheets(1).Hyperlinks.Add(Ячейка,"http://rambler.ru","","Microsoft Web Site", "Текст...");
   
   

   не работает

4. Прайс.Sheets(1).Hyperlinks.Add(Ячейка,"http://rambler.ru","","Microsoft Web Site","Подробно...");
   
   

   Не работает!!!!
   отображается Подробно… , но как киперссылка не срабатывает!!!
   помогите, плиз!!!!!!!!!!!

5. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   У меня вот так работает нормально:

   ТаблицаExcel = Новый COMОбъект("Excel.Application");
   КнигаExcel = ТаблицаExcel.Workbooks.Add();
   СтраницаExcel = КнигаExcel.Worksheets(1);
   СтраницаExcel.Cells(1, 1).Hyperlinks.Add(СтраницаExcel.Cells(1, 1), "http://www.mail.ru",, "Ссылка", "Ссылка на мэйлру" );
   

6. При создании нового ссылка работает, а вот при открытии и изменении нет((((

7. Ексель = ПолучитьCOMОбъект(ФайлВыгрузки);
   
   

   ошибка — Ошибка получения объекта COM: Класс не зарегистрирован

8. 
   

   Offline

   BabySG
   Администраторы
   Команда форума
   Администратор

   Регистрация:

   10 июн 2007

   Сообщения:

   11.853

   Симпатии:

   18

   Баллы:

   29

   Не догнал…ФайлВыгрузки — это что такое и чему равно?

9. ТабДок.Записать("D:выгрузка.xls","XLS");
   Ексель =  Новый COMОбъект("Excel.Application");
   Книга = Ексель.Workbooks.Open("D:выгрузка.xls");
   Страница = Книга.WorkSheets(1);
   Страница.Hyperlinks.Add(Страница.Cells(5,7),"http://rambler.ru",,"Ссылка", "Рамблер...");
   Книга.Save();
   Книга.Close();
   Ексель.Quit();
   
   

   Не работает….
   при создании нового документа ексель работает. а при открытии сохраненного документа, куда надо добавить ссылку нет

10. Спасибо большое!!!
    все заработало!!! моей радости нет предела..

11. 
    

    Offline

    BabySG
    Администраторы
    Команда форума
    Администратор

    Регистрация:

    10 июн 2007

    Сообщения:

    11.853

    Симпатии:

    18

    Баллы:

    29

    Сейчас глянем…

    PS. Пока писал, уже до меня посмотрели

12. 
    

    Offline

    sdemon72

    Регистрация:

    12 сен 2008

    Сообщения:

    11

    Симпатии:

    0

    Баллы:

    1

    Так а как сделать то? У меня те же грабли. Пробовал так:

    Екс.ActiveSheet.Cells(ТекСтрокаЕкс, 3).Hyperlinks.Add(Екс.ActiveSheet.Cells(ТекСтрокаЕкс, 3), ТекАдресКартинки);
    

    и так

    Екс.ActiveSheet.Hyperlinks.Add(Екс.ActiveSheet.Cells(ТекСтрокаЕкс, 3), ТекАдресКартинки);
    

    и так

    Екс.ActiveSheet.Hyperlinks.Add(Екс.ActiveSheet.Cells(ТекСтрокаЕкс, 3), ТекАдресКартинки,"","Ссылка","Текст");
    

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

13. 
    

    Offline

    sdemon72

    Регистрация:

    12 сен 2008

    Сообщения:

    11

    Симпатии:

    0

    Баллы:

    1

    Ага, просек тему.
    Дело в том, что, поленившись создавать шапку програмным путем, я сохранял объект 1с «Таблица» в формат XLS, затем открывал его (Екс.workbooks.Open(ИмяФайлаПрайса)) и забивал туда строки. При сохранении полученного документа он сохранялся как Excel95, и поэтому ссылки не сохранялись (видимо не поддерживаются).
    Переделал программу, чтобы документ XLS создавался «с нуля» — теперь все тип-топ :unsure:

14. 
    

    Offline

    alp
    Опытный в 1С

    Регистрация:

    8 янв 2009

    Сообщения:

    434

    Симпатии:

    0

    Баллы:

    26

    У меня Проблема как сделать ссылку на себя, тоесть на другую ячейку ??

    Ячейка= Данные.Sheets(1).Cells(3,1);
    Данные.Sheets(1).Hyperlinks.Add(Ячейка,Данные.sheets(1).Range("A160"));
    
    

    не работает , почему не понимаю.

15. 
    

    Offline

    alp
    Опытный в 1С

    Регистрация:

    8 янв 2009

    Сообщения:

    434

    Симпатии:

    0

    Баллы:

    26

    Можно ли получить адрес из уже существующей гиперссылки ?

16. 
    

    Offline

    myr4ik07

    Регистрация:

    10 авг 2013

    Сообщения:

    10

    Симпатии:

    0

    Баллы:

    1

    А ссылку поставить на изображение как?

1С, вставить ссылку в табличный документ (макет печатной формы)