Açık iki Excel dosyasından sadece birini kapatmak.

[alpay1]

Private Sub CommandButton2_Click()
Unload Me
    ActiveWorkbook.Save
Application.Quit
End Sub

Yukarıdaki kodlarla açık plan iki Excel çalışma sayfasından birisini kapatmak istiyorum.Fakat ikiside kapanıyor.
Sadece birinin kapanması için ne yapabilirim.
Teşekkürler.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi düzenleyin. Kitap3 yerine kapatacağınız kitabın adını yazın. "Application.Quit " komutu tüm exceli kapatan bir komuttur.

Private Sub CommandButton2_Click()
Unload Me
ActiveWorkbook.Save
Windows("Kitap3").Close
End Sub

 

[danersin]

Küçük bir ekleme daha önce kaydedilmiş bir dosya ise .xls'yide yazmanız gerekir.

Windows("Kitap3.xls").Close

 

[alpay1]

Teşekkürler değerli arkadaşlar.
Sorun kalmadı.