Copiar de CMD.EXE a EXCEL con Macros

[posman]

Prueba con esto

Código:

Public Sub VentanaDOS()
    Dim obj, resul, linea
    
    Set obj = CreateObject("WScript.Shell")
    Set resul = obj.exec("ping.exe 127.0.0.1")

    Do While resul.Status = 0
    Loop
    
    cont = 1
    Do While Not resul.stdout.atendofstream
        linea = resul.stdout.readline
        linea = Replace(linea, vbCr, "")
        Worksheets(1).Cells(cont, 1) = linea
        cont = cont + 1
    Loop
End Sub

Esto crea un objeto (wscript) y ejecuta el comando. Despues, dentro del ciclo, se van leyendo las lineas y reemplazando el ENTER por nada y poniendo cada linea leida en una linea de Excel