DOS'a çıkıp bat dosyası çalıştırıp geri dönme çalışması

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Excel'de çalışırken DOS'a çıkıp .bat dosyası çalıştırıp tekrar excel'e dönmek için bir çalışma yapıyorum. Bu noktada eklerdeki hata geliyor, nasıl çözümleyebilirim?
Saygılarımla

 

[Asri]

Hocam bu örneği deneyebilirsiniz.

pingle.bat dosyası içeriği
ping %1 -t

Sub pingle()

    ip = "127.0.0.1"

    CommandString = "d:\temp\pingle.bat" + " " + ip + " "

    Call Shell("cmd.exe /c" & CommandString, vbNormalFocus)

End Sub

 

[Tevfik_Kursun]

Merhaba Asri Hocam,
Pingle bat'ı çalıştırdım. Umarım çalışmamdaki bat ta çalışır. Teşekkürler. Bilgilendireceğim.
Saygılarımla