Question

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

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

超链接（1）.Follow无效。

提前谢谢

Answer 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

VBA - 打开当前文档中另一个工作表的超链接

1 个答案: