VBA检索超链接目标表？

Question

我试图从单元格中的超链接中检索工作表参考位置

以下似乎不起作用，因为test没有返回任何内容，即使G8指向工作表： KO 在单元格{{ 1}}

A19

现在，如果我运行以下内容：

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

它循环并找到正确的地址，但我似乎无法找出如何检测它所指向的表格。循环也有点混乱，因为它在这种情况下找到第一个也是唯一的超链接后会出错。而且它并不总是特定于G8。我想我可以抛出一个if语句并提前退出for循环。

无论如何，我无法在stackoverflow，google，microsofts＆＃34;超链接和＃34;中找到任何地方。 doc是一种获取工作表名称的方法。

见下面的示例说明：

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