2015-02-20 5 views
0

В моей таблице Excel содержатся некоторые ячейки с гиперссылками на другие листы в том же документе.VBA - Открыть гиперссылку на другой лист в текущем документе

Как я могу перейти на этот новый лист или сохранить его в переменной с помощью VBA?

Гиперссылки (1). Не работает.

Спасибо заранее

+0

Are вы полностью qualyfing в 'коллекции Hyperlinks' (т.е.' Sheets ("yourSheet") Диапазон ("yourRange") гиперссылок (1) .Follow' вы уверены.? гиперссылка, которую вы хотите отслеживать, является первой? Что делает _did no t work_ означает? Он не идет на страницу, это дает вам ошибку, ничего не делает? –

+0

P.s. если вам нужно выполнить действие смены листа, я предпочел бы предложить 'yourSheet.Activate' или' yourSheet.Select', намного проще и не полагаться на гиперссылки, которые пользователь может решить удалить. –

+0

Мне нужно разобрать элементы в другом листе. .Follow дает ошибку с внутренней гиперссылкой (что мне нужно) – Leon

ответ

0

Ниже кода дадут вам адрес в окнах сообщений, вы можете написать все, что вы хотите в там.

Вы должны быть осторожны, если ссылка находится в той же книге он записывается как SubAddress, если это внешняя ссылка оно записывается как Address

Sub LinkFind() 
    For Each lnk In ActiveSheet.Cells.Hyperlinks 
     MsgBox lnk.SubAddress 
    Next 
End Sub 

следующий код не имеет никакого смысла, но просто чтобы показать вам посещения процедуры:.

Sub LinkVisit() 
Dim ws As Worksheet 
Set ws = ActiveSheet '<- or Sheets("Sheetname") 
    For Each lnk In ws.Cells.Hyperlinks 
     lnk.Follow 
    Next 
End Sub 
Смежные вопросы