excel获取超链接

2025-01-07 09:18:34
推荐回答(2个)
回答1:

如果是VBA的话
应该是用Activecell.Formula获取整个公式,即=hyperlink("\\server\aaa\aaa.xls","aabbbcc")
然后再用Instr、Left、Mid、Right之类的函数获取链接地址:

theADDR=mid(activecell.Formula,13,instr(activecell.Formula,",")-14)

回答2:

使用宏表函数,定义名称,如果公式在A1,那么选中B1定义名称
AA=GET.CELL(6,$A1),确定。
B1中输入:=SUBSTITUTE(SUBSTITUTE(AA,"=HYPERLINK(""",""),""",""aabbbcc"")",""),就可以得到结果
可以向下填充
记住 要启用宏,不然宏表函数是无效的