可以用下面的VBA代码显示
注意，当前工作表的A列会被改写，建议添加空表后执行。代码文本为：
Sub 获取链接()
Dim a, i
a = ActiveWorkbook.LinkSources
For i = LBound(a) To UBound(a)
Cells(i + 1, 1) = a(i)
Next i
End Sub
选择所有的带有链接的文件名或地址，右键弹出的菜单中选择性粘贴中选择值，然后就可以复制到你能用的地方了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024