Выявление и обобщение сломанных гиперссылок

Question

предупреждаю, это мой первый вопрос о переполнении стека:

У меня есть лист с несколькими гиперссылок в обеих клетках и форм. Мы собираемся перестроить наши файлы, чтобы лучше организовать папки, которые собираются сломать некоторые из этих ссылок. Я нашел полезный Q/A в Stack Overflow, который прошел через меня, построив sub, чтобы проверить, не сломана ли ссылка и выделить ее.

Мой вопрос в том, как я могу определить якорь неработающей ссылки?

Я хочу создать новый лист в книге «broken_hyper», в котором перечислены все сломанные ссылки по всей книге и создается гиперссылка (или даже описание) обратно туда, где я могу найти и исправить неработающую ссылку.

Я попытался с помощью

If objhttp.statustext <> "OK" Then 

    alink.Parent.Interior.Color = 255 
    ActiveSheet.Cells(i, 2) = alink.Parent 
    ActiveSheet.Hyperlink.Add _ 
     Anchor:=ActiveSheet.Cells(i, 2), _ 
     Address:=alink.Parent 
     i = i + 1 
End If 

Однако, я не могу найти какое-либо имущество по .parent, кроме .cells.row или .cells.column, который находит якорь легко.

Любая помощь очень ценится. Я не профессионал - все, что я подобрал до сих пор, было из полезных ответов таких людей, как вы, поэтому спасибо за это.

Answer 1

Используйте .Addressproperty

If objhttp.statustext <> "OK" Then 

    alink.Parent.Interior.Color = 255 
    ActiveSheet.Cells(i, 2) = alink.Parent 
    ActiveSheet.Hyperlink.Add _ 
     Anchor:=ActiveSheet.Cells(i, 2), _ 
     Address:=alink.Parent.Address 
     i = i + 1 
End If