VBA如何提取单元格超链接完整路径

f8b1987

提取超链接完整地址样表.rar (33.33 KB, 下载次数: 9)

2022-7-15 10:42 上传

点击文件名下载附件

如图，超链接有显示file:开头的完整路径，想提取出来，包括工作簿名称、表名称，提取的链接点击会跳转文件位置。
注意：
不是直接从工作簿路径判断获取地址，因为会有引用其他工作簿的可能。
是直接从单元格超链接里获取地址。



不知道是否可以实现，请帮忙，谢谢

loirol

是这样吗

f8b1987

loirol 发表于 2022-7-15 10:49
是这样吗

条件已经注明：
注意：不是从工作簿路径判断获取地址


你这个方法，一旦我第二个单元格的超链接链接的是别的工作簿，就不对了

剑指E

1. Sub mm()
   
2. Dim hy As Hyperlink, a$, Myaddresss$
   
3. For Each hy In Sheets("结果").Hyperlinks
   
4. a = hy.SubAddress
   
5. If a = "" Then
   
6. Myaddresss = hy.Parent
   
7. Else
   
8. Myaddresss = ThisWorkbook.FullName & "-" & a
   
9. End If
   
10. hy.Range(1, 2) = Myaddresss
    
11. Next
    
12. End Sub

复制代码