• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Enviar pulsacion de tecla shitf + insert a Programa Putty

Hola a Todos

Necesito de su gran ayuda eh creado una pequeño macro con la cual me conecto al programa putty e inicio sesion y todo eso, lo que estoy tratanto de hacer es copiar un dato de excel y pegarlo en el Programa putty mediante enviando pulsaciones de teclan con el send keys shit + insert pero no logro conseguir que pege el dato copiado.
puttyd.PNG

pero si lo hago de forma manual haciendo clic derecho sobre el programa putty si se vizualiza el pegado de datos, espero me puedan Ayudar envio mi codigo

Código:
Sub MacPutty()
Dim ReturnValue
User = InputBox("SAP User ID")
If User = "" Then Exit Sub
pass = InputBox("Please, enter your SAP password")
If pass = "" Then Exit Sub
ReturnValue = Shell("C:\Program Files\PuTTY\putty.exe [email protected] -pw fMrc^9ma", 1)
AppActivate ReturnValue
CreateObject("WScript.Shell").PopUp "Esperando 10 s", 10, "Paciencia...", 48


AppActivate ReturnValue
SendKeys (User), True
SendKeys ("{tab}")
SendKeys (pass), True
SendKeys ("{ENTER}")
SendKeys ("^a"), True
AppActivate ReturnValue
SendKeys "9", True
SendKeys ("{ENTER}")
Workbooks("Putty.xlsm").Activate

Dim Uf As Long
Uf = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 1
Range(Cells(i, "A"), Cells(i, "D")).Copy
AppActivate ReturnValue
SendKeys "+{insert}", True

Next i




End Sub
 

Adjuntos

Última edición:
Arriba