Уважаемые знатоки, помогите разобраться.
Скачиваю отчет, где в крайней колонке гиперссылки на внутренний ресурс, где отображаются фотографии. Нужно "подтянуть" их в общий отчет.
Для этого планирую преобразовать гиперссылку в текст и обратно.
Есть макрос:
| Код |
|---|
Sub ListAllHyperLinks()
Dim i As Integer
For i = 1 To ActiveSheet.Hyperlinks.Count
ActiveSheet.Hyperlinks(i).Parent.Offset(,1) = ActiveSheet.Hyperlinks(i).Address
Next
End Sub |
Работает нормально. Гиперссылку в текст преобразует. Обратно с функцией ГИПРЕССЫЛКА не работает почему-то. Выдает ошибку.
Не знаю, будет ли работать прикрепленный файл, так как ссылка на внутренний ресурс.
Файл см. ниже