Dos'a çıkan bu makro niçin bu hatayı veriyor olabilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Cmd_CIK()
    Shell "cmd /c start " & ThisWorkbook.Path & "\"
    Shell "cmd /c start " & ThisWorkbook.Path & "\" & CIS_TBJP.bat
    Windows("CaIS.xlsm").Activate
End Sub

Dos'a çıkan bu makro niçin bu hatayı veriyor olabilir?
Saygılarımla

 

[RBozkurt]

Dosya adına "Tırnak" işareti ekleyip deneyin,

Shell "cmd /c start " & ThisWorkbook.Path & "\CIS_TBJP.bat"

 

[Tevfik_Kursun]

Sayın Hocam,
İlginize teşekkür ederim, tırnak dikkatimden kaçmış. Ama shell 'e dosyanın bulunduğu klasör yerine Documents klasöründe çıkıyor. Neden olabilir?
Saygılarımla

 

[Tevfik_Kursun]

Muhterem Arkadaşlar,
Dosyanın bulunduğu klasörün yolunu da verdiğim halde aynı Documents klasörüne gidiyor, neden olabilir?
Saygılarımla

 

[Asri]

Bat dosyasının için bu kodları ekleyin.
C: den farklı bir sürücüde ise D: gibi

d:
cd batdosyasininyolu

 

[Tevfik_Kursun]

Sayın Asri Hocam,
Bunu şimdi denedim, doğru klasöre gidiyor. Sizi bilgilendireceğim
Saygılarımla

 

[RBozkurt]

Deneyebilirsiniz,

Sub Bat()
    Dim filePath As String
    filePath = ThisWorkbook.Path & "\CIS_TBJP.bat"
    Call Shell(filePath, vbNormalFocus)
    Workbooks("CaIS.xlsm").Activate
End Sub

 

[Tevfik_Kursun]

Sayın RBozkurt Hocam,
İlginize teşekkür ederim, görev yapmadı. 3. satır çalışmıyor
Saygılarımla