Açık olan tüm excelleri kapatma

[mustilem23]

Korhan bey asri beyi ikna edin iskender de buluşalım. .

 

[Asri]

Korhan bey asri beyi ikna edin iskender de buluşalım. ������.

10 sene önce olsaydı iş için geliyordum, aradan çıkarırdık
Şimdi yolumuz düşerse diye beklemedeyim

 

[mustilem23]

Ben herzamane hazırım üstad beklerim. Bu arada script oldu çalışıyor çok teşekkür ederim .

 

[mozdem]

Bu şekilde dener misiniz?

#include <AutoItConstants.au3>

Local $var = WinList()
For $i = 1 To $var[0][0]
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
        ;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
        Local $sirasi = StringInStr($var[$i][0], "IFS Applications")
        Local $soldan = StringLeft($var[$i][0], 18)
        if $sirasi>0 then
            if $soldan<>"IFS Uygulamalarına" then
                 WinClose($var[$i][0])
            EndIf
        EndIf
    EndIf
Next


Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Tebrik ediyorum hocam. Size kolay gelsede bize hayal gibi.

 

[By.TRabZonLutm]

Görev Yöneticisi - Ayrıntılar sekmesinden EXCEL.exe bulup işlem ağacını sonlandır yaparak da kapatabilirsiniz.