从不同工作簿中的单元格中提取超链接目标

Question

我有一个具有自定义右键单击功能的工作簿，该功能可以根据用户选择的内容从另一个工作簿中提取单元格值。它工作得很好，我只是从另一个工作簿中获取单元格的值。不过，有些单元格包含超链接，我想导入功能超链接，而不是单元格中显示的值。例如，下图包含输入工作簿工作表 BOS 的单元格 (Y216) 中的超链接。

这是我要复制的单元格的图像。确实是超链接。

?application.Workbooks(2).Sheets("BOS").Range("Y216").value

返回 MKB 70-203 Wicket Shear Pin Detection System，这确实是正确的。

但是如何获取超链接的目的地？我尝试了几件事，包括

?application.Workbooks(2).Sheets("BOS").Range("Y216").Hyperlinks.count

即使您可以在图像中看到超链接确实有地址，也会返回 0。以同样的方式，下面的 sub 不会进入 For Each，因为它计算了 0 个超链接。

Sub HLtester()
    Dim HL As Hyperlink
    For Each HL In Application.Workbooks(2).Sheets("BOS").Range("Y216").Hyperlinks
        Debug.Print HL.Address
    Next
End Sub

预期的输出将是链接的目标J:\SOUM\3191....，如图所示。

编辑

如果单元格的公式很重要

=LIEN_HYPERTEXTE("J:\SOUM\3191 M - Old Hickory Dam\11_BOS_FT\02_FT_MECT\21-200 Headcover";"21-200 Headcover")

顺便说一下，这是法语 Excel 的=HYPERLINK 函数。我想在万不得已的情况下，我可以采用公式并切断function 部分以检索链接部分？

Answer 1

你的命令对我有用，如果你想循环访问工作表中的所有超链接，我不知道你为什么要设置范围 - 也不是为什么你设置为应用程序。工作簿-无论如何，这对我来说很好：

Sub HLtester()
    Dim HL As Hyperlink
    For Each HL In Sheets("Sheet1").UsedRange.Hyperlinks
        Debug.Print HL.Address
    Next
End Sub

您也可以使用以下方法在范围内获得它

ActiveCell.Hyperlinks(1).Address

您可能会得到更多信息here

编辑：
可能由于“application.workbook”导致计数错误，请尝试将其声明为变量，而不是在整个代码中使用它

Sub HLtester()
    Dim HL As Hyperlink
    Dim WBAnalyzed As Workbook: Set WBAnalyzed = Workbooks("MyWB.xlsm")
    For Each HL In WBAnalyzed.Sheets("Sheet1").UsedRange.Hyperlinks
        Debug.Print HL.Address
    Next
End Sub

编辑 2：
这是由公式给出的超链接时建议的方法

Sub test()
    On Error Resume Next 'means no formula
    x = Evaluate(Range("A1").Formula)
    x1 = Sheets("Sheet1").UsedRange.Hyperlinks.Count
    Debug.Print x
    Debug.Print x1
End Sub

PS：我保存了我的变量声明-只是因为-，但是，您应该始终对它们有一个整洁的控制，并在模块的开头使用显式选项。