Hyperlinks.Add添加超链接异常：Excel提示无法打开文件

这种“代码生成的超链接手动能正常访问，但Excel提示打不开”的情况我碰到过好几次，大概率是路径格式不规范或者Range对象的上下文没搞对，给你几个排查和解决的方向：

1. 给Anchor的Range指定明确的工作表 #

你代码里写的Range("A" & i)没有限定所属工作表，如果当前激活的工作表不是SourceBook.Sheets(ESN & "_SV" & SV)，这个Range会默认指向当前活动表，导致超链接加错位置，或者Excel解析锚点时出错。修改成明确指定工作表：

SourceBook.Sheets(ESN & "_SV" & SV).Hyperlinks.Add _
    Anchor:=SourceBook.Sheets(ESN & "_SV" & SV).Range("A" & i), _
    Address:=ToPath & NewName

2. 检查并规范文件路径格式 #

虽然你说Debug.Print的链接能打开，但代码拼接路径时可能存在隐形问题：

• 比如ToPath结尾没有加反斜杠，导致和NewName拼接后路径错误（比如C:\Test+File.xlsx变成C:\TestFile.xlsx）；
• 路径里有多余的空格或者不可见字符。

可以先对路径做格式化处理：

' 格式化路径，确保结尾有反斜杠且无多余空格
Dim fullPath As String
fullPath = Trim(ToPath)
If Right(fullPath, 1) <> "\" Then
    fullPath = fullPath & "\"
End If
fullPath = fullPath & Trim(NewName)

' 再添加超链接
SourceBook.Sheets(ESN & "_SV" & SV).Hyperlinks.Add _
    Anchor:=SourceBook.Sheets(ESN & "_SV" & SV).Range("A" & i), _
    Address:=fullPath

3. 用FileSystemObject获取规范路径 #

如果路径是相对路径或者存在不规范的写法（比如包含..\），可以用FileSystemObject转换成绝对规范路径，避免Excel解析出错：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fullPath As String
fullPath = fso.GetAbsolutePathName(Trim(ToPath) & "\" & Trim(NewName))

SourceBook.Sheets(ESN & "_SV" & SV).Hyperlinks.Add _
    Anchor:=SourceBook.Sheets(ESN & "_SV" & SV).Range("A" & i), _
    Address:=fullPath

4. 排查Excel信任中心设置（可能性较低） #

如果以上方法都不行，可以检查Excel的信任中心：

• 打开「文件」→「选项」→「信任中心」→「信任中心设置」→「超链接设置」；
• 确保“允许所有超链接”或者至少允许本地文件路径的超链接。

一般来说，前两个方法就能解决问题，尤其是给Range指定工作表这一步，很多人容易忽略这个细节。

内容的提问来源于stack exchange，提问作者KawaRu