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