VBA检索超链接目标表？

Question

我正在尝试从单元格中的超链接检索工作表引用位置

以下内容似乎不起作用，因为 test 没有返回任何内容，即使 G8 指向单元格中的工作表:KO A19

test = Range("G8").Hyperlinks(3).Address

现在如果我运行以下命令:

For Each hl In Sheets("LIST").Hyperlinks
    MsgBox "Range " & hl.Range.Address & " addr " & _
            hl.Address & " text " & hl.TextToDisplay
Next hl

它循环并找到正确的地址，但我似乎无法弄清楚如何检测它指向的工作表。此外，循环有点困惑，因为在这种情况下，一旦找到第一个也是唯一的超链接，它就会出错。而且它并不总是专门针对 G8 的。我想我可以只扔一个 if 语句并提前退出 for 循环。

无论如何，我在 stackoverflow、google、microsoft 的“超链接”文档中都找不到获取工作表名称的方法。

请参阅下面的示例图:

Answer 1

SubAddress 是您想要的:

Sub Test()

    Dim hl As Hyperlink, r As Range

    Set hl = ActiveSheet.Hyperlinks(1)

    Set r = Application.Evaluate(hl.SubAddress)

    Debug.Print "Sheet: '" & r.Parent.Name & "'", "Range:" & r.Address()

End Sub