Início / coding / Perguntas / 79577987
Accepted
Rod
Asked: 2025-04-17 03:42:53 +0800 CST

No Excel, meu hiperlink não funciona para iniciar o RDP

  • 772

Tenho uma coluna de servidores e gostaria de colocar um link adjacente que iniciará a área de trabalho remota. Há duas macros abaixo e a segunda inicia conforme o esperado. A primeira não. Ela exibe uma mensagem dizendo "Referência inválida" e tenta abrir o RDP duas vezes (ele endereça o servidor correto).

Sub StartRDP(serverName As String)
    If serverName <> "" Then
        Shell "mstsc.exe /v:" & serverName, vbNormalFocus
    End If
End Sub

Sub StartRDP2()
 
        Shell "mstsc.exe /v:Server1", vbNormalFocus

End Sub

Aqui está o conteúdo da minha célula:

=HYPERLINK("#StartRDP(" & CHAR(34) & (D4) & CHAR(34) & ")", "test")

Quando clico no link, aparece o pop-up "Referência não é válida" e então o RDP abre duas vezes.

excel

1 respostas

  1. Best Answer

    De acordo com https://superuser.com/questions/1492204/create-links-to-rdp-servers-in-excel , o link direto no Windows não funciona. Testei seu código e recebi o mesmo erro que você.

    Mas você pode adicionar ao código VBA que você forneceu o seguinte:

    Sub StartRDP(serverName As String)
    If serverName <> "" Then
        Shell "mstsc.exe /v:" & serverName, vbNormalFocus
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("D1:D4")) Is Nothing Then
            StartRDP (Target.Value)
        End If
    End If
End Sub

    Com isso, você pode ter nomes de servidores listados em D1 - D4 e, quando qualquer uma dessas células for clicada, uma sessão RDP será iniciada.

    • 1

relate perguntas