Cmd Pencere Komutu

[tevfikuzunn]

Merhaba arkadaşlar ,

Excelde bir macrom mevcut fakat şöyle bir sıkıntım var. Macro cmd yi çalıştırıp işlem yaptırıyor. Cmd'nin devamında başka bir macroyu çalıştırmam gerekiyor fakat bu makro ilk cmd ekranı kapandığında başlamalı. Fakat bulamadım nasıl yapacağımı bende wait komutuyla bekletiyorum fakat benim için sağlıklı değil .

Kısacası herhangi bir windows penceresi açıkken bekle şeklinde komut nasıl yaazabilirim. Ya da windows penceresini nasıl tanıtabilirim .


Teşekkürler.
İyi çalışmalar

 

[Haluk]

Cmd ekranı kapandığında Excel makrosunun çalıştırmak için, aşağıdaki kodu kendinize uyarlayabilirsiniz.

Burada; makro kodunun olduğu dosya yolundaki TCMB_Gunluk_Kurlar.bat dosyası makro ile çalıştırılıp işi bittikten sonra pencere kullanıcı tarafından manuel olarak kapatılınca, makro kaldığı yerden devam eder.

Sub Test()
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    
    wsh.Run ThisWorkbook.Path & Application.PathSeparator & "TCMB_Gunluk_Kurlar.bat", 1, True
    
    MsgBox "BAT dosyası çalıştı"
    
    'Buraya gerekli kodlar yazılabilir....
    '......
    '....
    '...
End Sub

.

 

[PLİNT]

Merhaba
Alternatif olsun;

Private Sub CommandButton1_Click()

'....
'... cmd.exe çalıştır
  '...
  
Set A = GetObject("winmgmts:")
x = 1
Do Until x < 1
Set h = A.ExecQuery("Select * from Win32_Process where name='" & "cmd.exe" & "'")
x = h.Count
Loop


'.....
'...diğer kodlar
'....
End Sub

 

[tevfikuzunn]

Haluk bey yardımınız için çok teşekkür ederim.

Şuan tam istediğim şekilde çalışıyor .

Saygılarımla
İyi çalışmalar

 

[Haluk]

Tevfik Bey, kolay gelsin ...

.