Excel中HYPERLINK调用RDP宏异常：报错且重复启动远程桌面

问题根源 #

你用=HYPERLINK("#StartRDP(" & CHAR(34) & D4 & CHAR(34) & ")","test")这种方式调用带参数的宏，Excel根本不支持这种语法。它会因为解析不了带参数的宏调用弹出“Reference isn't valid”错误，而且内部逻辑还会重复触发宏，导致开两个RDP窗口。

靠谱的解决办法 #

办法1：不用VBA，直接构造RDP链接（最简单） #

Excel支持直接识别rdp://协议，直接在单元格里写公式就行，完全不用宏：

=HYPERLINK("rdp://" & D4, "连接服务器")

点击这个链接就会直接启动远程桌面连接到D4里的服务器名，省心又没bug。

办法2：改宏为无参数，靠单元格位置取服务器名 #

如果非要用VBA，就把宏改成不带参数的，让宏自己去读旁边单元格的服务器名：

Sub StartRDP()
    Dim serverName As String
    ' 假设你点的单元格在服务器名的右边一列（比如D列是服务器，E列是链接）
    serverName = ActiveCell.Offset(0, -1).Value
    If serverName <> "" Then
        Shell "mstsc.exe /v:" & serverName, vbNormalFocus
    End If
End Sub

然后HYPERLINK公式改成调用无参数的宏：

=HYPERLINK("#StartRDP", "连接服务器")

办法3：用名称管理器传递参数（适合复杂场景） #

如果需要更灵活的参数传递，不想依赖单元格位置，可以用名称管理器暂存参数：

' 自定义函数，用来生成链接并把服务器名存到名称管理器
Function GetRDPLink(serverName As String) As String
    GetRDPLink = "#StartRDPParam"
    ' 把当前服务器名存成隐藏名称，供宏读取
    On Error Resume Next ' 避免重复创建名称报错
    ThisWorkbook.Names("CurrentRDPServer").Delete
    On Error GoTo 0
    ThisWorkbook.Names.Add Name:="CurrentRDPServer", RefersTo:=Chr(34) & serverName & Chr(34), Visible:=False
End Function

' 实际执行的宏
Sub StartRDPParam()
    Dim serverName As String
    serverName = ThisWorkbook.Names("CurrentRDPServer").Value
    serverName = Replace(serverName, """", "") ' 去掉前后的引号
    If serverName <> "" Then
        Shell "mstsc.exe /v:" & serverName, vbNormalFocus
    End If
End Sub

单元格公式用这个自定义函数：

=HYPERLINK(GetRDPLink(D4), "连接服务器")

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