Hola:

Respondiendo a este post:

https://www.ayudaexcel.com/foro/threads/importar-los-datos-adquiridos-de-la-consola-de-windows-a-excel.40756/

Adaptado papelera vacia por @jonetoja

Declare Function OpenClipboard _

Lib "User32.dll" _

(ByVal hWndNewOwner As Long) As Long


Declare Function EmptyClipboard _

Lib "User32.dll" () As Long


Declare Function CloseClipboard _

Lib "User32.dll" () As Long


Sub muestra_cmd1()


  Call ClearClipboard


    Dim objWshell As Object

    Dim miPortapapeles As New DataObject, Contenido As String


    Set objWshell = CreateObject("Wscript.Shell")

    objWshell.Run "cmd /k "


        Application.Wait Now + TimeValue("00:00:01") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.

        objWshell.SendKeys "cd..", True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o


        Application.Wait Now + TimeValue("00:00:01") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.

        objWshell.SendKeys "cd..", True

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o

        Application.Wait 1000


        Application.Wait Now + TimeValue("00:00:01") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.

        objWshell.SendKeys "cd..", True

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o


        Application.Wait Now + TimeValue("00:00:01") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.

        objWshell.SendKeys "CD C:\Windows\System32", True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o


        objWshell.SendKeys "CMD | CLIP", True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o

        Application.Wait Now + TimeValue("00:00:01") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.

        ippc = "ping " & Range("B2").Value

        objWshell.SendKeys ippc, True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o

        objWshell.SendKeys "EXIT", True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o

  miPortapapeles.GetFromClipboard: On Error Resume Next

  Contenido = miPortapapeles.GetText

        objWshell.SendKeys "EXIT", True ' Aquí pones lo que deseas escribir

        objWshell.SendKeys "~", True ' Activa y presiona la tecla INTRO o

        Application.Wait Now + TimeValue("00:00:03") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.


    Range("F8").Activate


        Application.Wait Now + TimeValue("00:00:02") 'Aquí se personaliza el tiempo de espera, con 1 no funciona.


    ActiveSheet.Paste


End Sub

Public Sub ClearClipboard()  ' Limpia el portapapeles

    Dim Ret

Ret = OpenClipboard(0&)

If Ret <> 0 Then Ret = EmptyClipboard

CloseClipboard

End Sub

[/CODE]

PING A EQUIPOS3.ro.jo.rar

Adaptado papelera vacia por [uSER=140867]@jonetoja[/uSER]

Y el 80% de esa macro además.

Hola [uSER=140867]@jonetoja[/uSER], si con el 80% puedes hacer lo que solicitas bien por ti.

Hola [uSER=9984]@rolano[/uSER] , en ningún momento desconozco el valioso aporte de tu parte y así está evidenciado en la pregunta que tú mismo referencias; es solo que el aporte mío en esa macro no solo se limita al aporte concerniente en vaciar la papelera, sino que si se ve en la misma pregunta hay otra parte que yo ya había desarrollado sin tu colaboración al resolver otra pregunta; es solo que mi aporte no se limita como lo quieres representar en una sola parte de lo mismo.

Saludos.

Entonces solo digo:

"A Dios lo que es de Dios y al Cesar lo que es del Cesar."

Si te refieres al uso de SendKeys, en este foro busca y vas a encontrar varias intervenciones y si buscas en los foros en ingles de ellos seria el crédito.

Entonces si estamos de acuerdo que eso hace parte de más de lo que me reconocías; o acaso para decir que 2+2 es igual a 4 hay que darle el crédito a los antiguos y no en que momento debemos aportar y aplicar?.

Bueno si se siente contento con desconocer el trabajo de los demás lo felicito y que siga así.

Si te refieres al uso de SendKeys,

Y no es solo al uso de SendKeys, es más allá.

Rolano,

Gracias, muchas gracias por la aportación.

Saludos.

Siempre a la orden [uSER=191714]@José_Santos[/uSER] . a sido un placer.