Birden fazla kitabı kapatma

[valentino06]

Arkadaşlar Merhaba 1 den fazla " *.xlsx " excel kitabını kod ile nasıl kapatabilirim. lütfen yardımcı olabilirmisiniz.
iyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.
Dosyaları tek tek kapatmak için

1- Dosyada bir değişiklik yaptıysanız kayıt etmek isteyip istemediğinizi sorar.

    Workbooks("Kitap1").Close
    Workbooks("Kitap2").Close
    Workbooks("Kitap3").Close

2- Dosyada bir değişiklik varsa sormadan kaydederek kapatmasını isterseniz.

    Workbooks("Kitap1").Close true
    Workbooks("Kitap2").Close true
    Workbooks("Kitap3").Close true

3- Dosyada bir değişiklik varsa sormadan kaydetmeden kapatmasını isterseniz.

    Workbooks("Kitap1").Close false
    Workbooks("Kitap2").Close false
    Workbooks("Kitap3").Close false

4- Açık olan tüm dosyaları kapatmak isterseniz. Dosyada bir değişiklik yaptıysanız kayıt etmek isteyip istemediğinizi sorar.

Application.Quit

 

[valentino06]

Muzaffer hocam çok teşekkür ederim. özür dileyerek soruyorum 40- 50 excel var ve isimleri farklı tek sefer de kapatabilmek için nasıl bir yol izlemeliyim

 

[Muzaffer Ali]

Ya 4. seçeneği kullanarak isim belirtmeden tümünü kapatacaksınız yada diğer seçeneklerde olduğu gibi tek tek isimlerini belirterek kapatacaksınız.

Yada şu işinizi görür mü? Eğer kapatılmasını istemediğiniz bir yada birkaç dosya varsa o dosyaları hariç tutarak diğer tüm açık dosyalar farklı bir şekilde kapatılabilir

 

[pislick0]

Sub buharicindekilerikapat()
Dim wb As Workbook
For Each wb In Application.Workbooks
wb.Close SaveChanges:=True
Next wb
End Sub

açık olan / butona atıyıp çalıştırdığınız dosya haricindekiler kapansın isterseniz

Sub hepsinikapat()
Dim wb As Workbook
For Each wb In Application.Workbooks
If Not wb Is ThisWorkbook Then
wb.Close SaveChanges:=True
End If
Next wb
End Sub

 

[valentino06]

Çok teşekkür ederim çok sağolun.