(VBA)如果链接不等于“(空白)”,则一次打开多个超链接

时间:2016-12-01 20:29:38

标签: excel vba excel-vba

我想创建一些可以同时打开多个超链接的VBA代码。

我的工作簿的Sheet5包含一个数据透视表,在“M”或pivotfield“Attachments”列中包含我想要超链接的链接。

链接看起来像这样:

“C:\ Users \ J_Doe \ Documents \ JDoe \ Documents \ FM200 Annual-Oct 2016.pdf”

作为数据透视表,如果此字段中没有超链接,该字段将显示“(空白)”。显然这些不应该打开。 所以我希望我的代码能够说出“在这个字段中打开所有不相等的超链接”(空白)“。

有人可以帮忙吗?我甚至不知道从哪里开始。

更新

这是我现在的代码:

Sub LaunchMultipleURLs()
On Error Resume Next
    Dim r As Range
    Set r = Sheet2.Range("M:M")
    Dim c As Range
    For Each c In r.Cells
        c.Hyperlinks(1).Follow NewWindow:=True
    Next c
End Sub

但是,M列中的数据透视表链接不是实际的链接。它只是被访问文件的位置,因此运行此代码本身不起作用。

我一直在做的是离开这样的链接位置:

“C:\ Users \ J_Doe \ Documents \ JDoe \ Documents \ FM200 Annual-Oct 2016.pdf”

这样,我可以通过执行类似“= hyperlink(M1)”的操作来引用数据透视表,我可以通过这种方式打开文件。但是,这仅适用于单元格M1。如果在M2及以后有链接,我不能在没有某种VBA的情况下打开它们。

0 个答案:

没有答案