实用VBA：19.Excel一键修复文件链接

1.需求场景

此前与大家分享过一键提取文件目录和文件名的方法，并且VBA中加一句语句就可以使提取出来的文件名带有链接，这样很方便在对大量文件进行检查时不必在资源管理器里到处翻目录，所见即所得，点击文件名即可打开文件。是个实际工作中非常实用的小技巧。但是有时候由于将保存目录信息的excel文件移动到了其他目录下或者分享至其他计算机等原因，常常遇到文件链接失效的情况。此时，也可以通过简单的VBA实现一键修复链接。

2.解决思路

一键提取文件路径和文件名的方法在此前的文章中与大家分享过（实用VBA：6.一键批量提取文件名和存储路径_批量存储文件名-优快云博客）。在此代码的基础上，将其中注释掉的那一句的注释取消即可实现文件名带链接就是这句：

'ws.Hyperlinks.Add anchor:=ws.Cells(last_row, 2), Address:=fso.Path & "\" & file.Name

在这个范例的基础上，如果文件名链接失效了，我们就可以将A列的文件路径和B列的文件名重新组合为文件完整路径，将其添加为B列单元格内容&#