我来帮你拆解这个问题——你用的ActiveWorkbook.Connections(name_of_conn).Name = name_of_conn2代码之所以时灵时不灵，大概率是因为几个容易被忽略的前提条件没满足，咱们逐个排查并给出修复方案：

常见报错原因及解决方法 #

1. 原连接名称不存在或匹配异常 #

Excel的Connections集合查找名称时，虽然默认不区分大小写，但如果名称里包含空格、特殊字符（比如&、#），或者你的变量name_of_conn不小心多了空格/拼写错误，就会找不到连接，直接触发“无效过程或参数”。

修复：先验证原连接存在
在修改前先检查目标连接是否真的存在，避免空引用报错。

2. 新名称已被其他连接占用 #

Excel要求工作簿内的连接名称必须唯一，如果name_of_conn2已经被另一个连接使用，修改操作会直接失败，抛出同样的错误。

修复：检查新名称是否可用
修改前先确认新名称没有被占用。

3. 连接处于不可编辑状态 #

如果连接正在刷新、或者所在工作表被保护、甚至Excel后台正在处理该连接的相关操作，此时修改名称会因为资源锁定而失败。

修复：确保连接处于空闲状态
可以先暂停所有连接刷新，或者等待刷新完成后再执行代码；如果工作表有保护，先解除保护再修改。

改进后的完整代码 #

结合以上检查，给你一份带错误处理的稳健版代码：

Sub SafeRenameConnection()
    Dim originalConnName As String
    Dim targetConnName As String
    Dim targetConn As WorkbookConnection
    
    '替换成你的变量值
    originalConnName = "你的原连接名称"
    targetConnName = "你的新连接名称"
    
    '步骤1：检查原连接是否存在
    On Error Resume Next
    Set targetConn = ActiveWorkbook.Connections(originalConnName)
    On Error GoTo 0
    
    If targetConn Is Nothing Then
        MsgBox "错误：找不到名为 '" & originalConnName & "' 的连接", vbExclamation
        Exit Sub
    End If
    
    '步骤2：检查新名称是否已被占用
    On Error Resume Next
    Set targetConn = ActiveWorkbook.Connections(targetConnName)
    On Error GoTo 0
    
    If Not targetConn Is Nothing Then
        MsgBox "错误：新名称 '" & targetConnName & "' 已被其他连接使用", vbExclamation
        Exit Sub
    End If
    
    '步骤3：尝试修改名称并捕获异常
    On Error GoTo RenameFailed
    ActiveWorkbook.Connections(originalConnName).Name = targetConnName
    MsgBox "连接名称已成功修改为：" & targetConnName, vbInformation
    Exit Sub
    
RenameFailed:
    MsgBox "修改失败：" & Err.Description, vbCritical
End Sub

额外注意事项 #

• 如果你的连接是Power Query（Get & Transform）创建的，直接修改WorkbookConnection.Name可能不够，还需要同步修改对应的Query名称（可以通过ActiveWorkbook.Queries集合操作）。
• 尽量避免在连接刷新事件触发时运行修改代码，比如可以在代码开头加上Application.Calculation = xlManual暂时关闭自动计算，修改完成后再恢复。

内容的提问来源于stack exchange，提问作者Marco Di Bartolo