在 VBA 中打开超链接

Question

我有一个 Excel 文件。在第一张表中有多行超链接（相对文件路径 = 文件位于 excel 文件旁边）。

在 VBA 中，我将获取包含超链接的单元格。如何在 VBA 中打开后跟超链接的文件？其实我想打开超链接（实际打开文件）

Answer 1

如果工作表中的超链接在 =hyperlink() 公式中，我们：

• 抓住公式
• 解析得到url
• 点击超链接：

代码如下：

Sub ClickByVba()
    ary = Split(ActiveCell.Formula, Chr(34))
    ActiveWorkbook.FollowHyperlink Address:=ary(1)
End Sub

这对网络链接和文件链接都有效。
如果链接是文件，则文件将被打开（如果尚未打开），跳转将制作。

Answer 2

正如我对 Gary 的回答所评论的，ActiveWorkbook.FollowHyperlink 方法有效，但如果您的网站需要登录，它会在您每次打开链接时询问您的凭据。

如果您想打开一个网站并保存您的凭据，您可以使用这个其他功能：

Sub OpenHyperlink(ByVal link As String)
   'Escape chars that cmd.exe uses
    link = Replace(link, "^", "^^")
    link = Replace(link, "|", "^|")
    link = Replace(link, "&", "^&")
    'Open default web browser
    Shell "CMD.EXE /C START " & link, vbHide
End Sub

Answer 3

看看Hyperlink对象引用：

https://msdn.microsoft.com/en-us/library/office/ff835563.aspx

您应该能够使用.Follow 方法打开文件，或者如果这不起作用，您可以随时获取.Address 属性并将其传递给Workbooks.Open 方法。

还将Excel Object Model Reference 加入书签以备将来使用:)

不过，我认为这不适用于公式超链接，所以如果这是您的情况，那么请改为：

Sub h()
    Dim cl As Range
    Dim h As String
    Set cl = Range("E13") 'Modify to the cell containing your =HYPERLINK formula
    h = Replace(cl.Formula, "=HYPERLINK(", "")
    h = Replace(h, ")", "")
    h = Replace(h, Chr(34), "")
    h = Split(h, ",")(0)

    Dim wb As Workbook
    Set wb = Workbooks.Open(h)
End Sub