VBA - 打开指向当前文档中另一张工作表的超链接答案

【问题标题】：VBA - Open Hyperlink to another sheet in the current documentVBA - 打开指向当前文档中另一张工作表的超链接
【发布时间】：2015-04-22 04:12:39
【问题描述】：

我的 Excel 工作表包含一些单元格，其中包含指向同一文档中其他工作表的超链接。

如何使用 VBA 转到此新工作表或将其保存在变量中？

超链接(1).Follow 不起作用。

提前谢谢你

【问题讨论】：

您是否完全符合Hyperlinks 集合的资格（即Sheets("yourSheet").Range("yourRange").Hyperlinks(1).Follow？您确定要关注的超链接是第一个吗？不起作用是什么意思? 它没有进入页面，它给你一个错误，它什么也不做？
附言。如果您需要执行换表的操作，我宁愿建议yourSheet.Activate 或yourSheet.Select，更简单，而不是依赖用户可能决定删除的超链接。
我需要解析另一个工作表中的元素。 .Follow 给出内部超链接错误（我需要的）

标签： vba excel hyperlink worksheet

【解决方案1】：

下面的代码给你地址作为消息框，你可以在那里写任何你想要的。

您需要注意链接是否在同一工作簿中记录为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

【讨论】：