Copiar de CMD.EXE a EXCEL con Macros

[Panda1809]

Hola a Todos,

He estado buscando la forma copiar los datos de la ventana de CMD.EXE a EXCEL utilizando una Macro.

Por ejemplo:

Quiero copiar el resultado de hacer ping con diferentes sitios, y almacenar esos datos en una Base de Datos de Excel.

¿Cómo puedo hacer esto a traves de una macro?

Agradezco su ayuda

[Fann_Lavigne]

Aqui hay algo que puede que te sirva, aunque iwal tiene sus limitantes. http://www.yoreparo.com/foros/programacion/131421.html

[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

[macroman]

hola, tu ejemplo me sirvio mucho, quisiera saber si sbaes como ocultar la ventana de comandos que levanta.

gracias de antemano