Excel VBA向名称管理器写入网络路径时自动添加多余冒号问题

问题原因 #

该问题和路径获取逻辑、字符串拼接逻辑无关，是Excel名称管理器的固有解析规则导致：

• 当你给RefersToR1C1属性赋值时，Excel会强制按照R1C1引用格式解析传入的内容
• 传入的UNC网络路径（\\服务器名\共享路径格式）会被Excel误识别为跨表/跨工作簿的区域引用，自动在服务器名片段后追加冒号作为R1C1引用的标记，最终导致路径失效
• 你在赋值前通过Debug.Print输出的路径完全正确，是因为多余冒号是属性赋值瞬间Excel内部自动添加的，并非传入的字符串本身有问题
• 你之前写的遍历字符移除冒号的逻辑完全冗余，还存在误删路径中合法冒号的风险，可以直接删除。

修复方案 #

只需要修改ChangeValueOfName过程中的赋值属性，将RefersToR1C1替换为RefersTo即可。RefersTo属性不会强制按照R1C1格式解析传入的带双引号纯字符串，不会自动插入多余字符。

修正后的完整ChangeValueOfName代码如下：

Sub ChangeValueOfName(NametoChange As String, NewNameValue As String, Comment As String)
Debug.Print "Start changeValueOfName routine"
    With ThisWorkbook.Names(NametoChange)
        .Name = NametoChange
        .Comment = Comment
        ' 核心修改：替换RefersToR1C1为RefersTo，避免Excel自动解析插入冒号
        .RefersTo = "=" & Chr(34) & NewNameValue & Chr(34)
    End With
    
    Debug.Print "The New Path added is " & "=" & Chr(34) & NewNameValue & Chr(34)
    Debug.Print "Return from ChangeValueOfName routine" & vbCrLf & vbCrLf
End Sub

验证说明 #

修改后本地盘符路径、UNC网络路径写入名称管理器时都会保持原始合法格式，不需要手动进入名称管理器删除多余冒号。

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