Question

我想创建一些可以同时打开多个超链接的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的情况下打开它们。

（VBA）如果链接不等于“（空白）”，则一次打开多个超链接

0 个答案: