Excel içinde iken klasördeki bat dosyaları nasıl çalıştırılır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Excel içinde iken klasördeki bat dosyaları nasıl çalıştırılır? Bunun için örnek bir makro arıyorum. Dos ortamına çıkıp Bat dosyasını çalıştırıp, bıraktığı yerden işine devam edecek. Ama açık siyah ekran kalmayacak.
Saygılarımla

 

[veyselemre]

Merhaba, aşağıdaki kodu deneyin.

Sub test()
    Shell ("d:\test\test.bat")
End Sub

 

[Tevfik_Kursun]

Sayın Veysel Hocam,
İlginize teşekkür ederim. Hemen denedim, ama görevi yapamadı.
Saygılarımla

 

[veyselemre]

Yapmadı diye bir şey yok, mutlaka yapmıştır.
Bat dosyanızın içeriği önemli incelemek gerekir. Bat dosyanıza göre denemeler yapmak gerekir.

 

[Tevfik_Kursun]

Merhaba,
Bat dosyasının içi

Ren kml\*.kml *.txt
exit

Saygılarımla

 

[veyselemre]

pathleri tam yazıp deneyin.

ren d:\kml\*.kml d:\kml\*.txt

gibi
exite gerek yok.

 

[Tevfik_Kursun]

Sayın VeyselEmre Hocam,
İlginize çok teşekkür ederim

Ren C:\Users\hp\Desktop\Deneme\Kml\*.kml *.txt

Bu haliyle çalıştı
Saygılarımla

 

[veyselemre]

Alternatif olarak deneyin.

Sub changeExt()

    strDir = "C:\Users\hp\Desktop\Deneme\Kml\"

    With CreateObject("wscript.shell")

        .currentdirectory = strDir

        .Run "%comspec% /c ren *.kml *.txt", 0, True

    End With

End Sub

 

[Tevfik_Kursun]

Sayın VeyselEmre Hocam,
İlginize çok teşekkür ederim, bu da çalıştı. Ama benim derdim araya el girmesin. Bu çalışmanızda önceki yaptığımı deneyeceğim.
Evet denedim ve tam istediğim gibi oldu.
Saygılarımla