超链接仅在 VBA 中的某些单元格中有效[重复]

Question

我正在尝试创建一个流程，通过使用按钮和下拉表，允许用户加载与不同报告关联的 PDF 文件。我创建了一个包含两列的表格，一列用于存储报告的名称，另一列包含适当的 PDF 链接。

在测试中，我创建了一个宏，它只需选择一个单元格，然后单击超链接。这个特定宏的代码如下

Sub PDFLinkLaunch()
Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

此代码按预期工作正常。

然后我继续该项目并创建了一个单元格，在 Excel 中使用以下公式，其中包含与下拉菜单内容相关联的超链接。

=HYPERLINK(VLOOKUP(L17,Table1,2,0))

这似乎也可以正常工作，因为它会在单元格内生成适当的超链接。

因此，我创建了一个新宏，目的是为这个新单元格执行与测试代码相同的操作，其中包含使用 VLOOKUP 找到的超链接，该宏的代码如下。

Sub LaunchHyperlinkMacro()
Range("L18").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

但是，此宏似乎不起作用并产生以下错误消息：

运行时错误9，下标超出范围

这里有人知道如何解决这个问题吗？如果不是，但他们知道这个问题的替代解决方案，那也将不胜感激。

Answer 1

VBA 无法将HYPERLINK 公式识别为实际的超链接。

您可以尝试使用FollowHyperlink 方法。

Sub LaunchHyperlinkMacro()
     Range("L18").Select
     ActiveWorkbook.FollowHyperlink Address:=Selection.Value, NewWindow:=False, AddHistory:=True
End Sub

我希望这适用于您的情况。