Close/Quit Sorunu

[Ali Excel Öğreniyor]

Merhaba dostlar.

7 aydır VBA ögreniyorum. Kendi çapımda birden çok program yaptım ve VBA dilini güzel bir şekilde öğrendim. Fakat bunca süredir çözemediğim bir sorun var. Bu sorunu sizlere örnekle anlatıcam. (Şirket dosyası olmasından dolayı paylaşıma açamıyorum)


UserForm üzerinde butona tıkladığımda başka bir çalışma kitabını açıyor. Bu çalışma kitabındada şöyle bir makro var, bu çalışma kitabı açıldığında sayfa1 i yazdırıyor, çalışma kitabını kaydediyor ve ThisWorkbook.close ile kitabı kapatıyor ve tekrar UserForm a dönüş yapması gerekiyor. Fakat diğer excel çalışma kitabınıda kapatıyor ve UserForm da kapanıyor. Exceli tekrar açtıgımda ise "bu çalışma kitabı zaten açık" diyor. Yani aslında arka planda gizliyor.

Sorum: Hangi kod ile istediğim çalışma kitabını tamamen kapatabilirim( diğer çalışma kitabı bundan etkilenmiycek, sadece istediğim çalışma kitabı kapancak)

/ThisWorkBook.Close
/Application.Quit
Bu kodlar kapatıyor fakat tüm exceli kapatıyor ve yeniden açtığımda "Bu çalışma kitabı zaten açık" uyarısını veriyor.

 

[Haluk]

7 ayda öğrendiyseniz valla bravo.... ben yaklaşık 20 yıldır doğru dürüst öğrenemedim.

.

 

[Ali Excel Öğreniyor]

7 ayda öğrendiyseniz valla bravo.... ben yaklaşık 20 yıldır doğru dürüst öğrenemedim.

.

Tabiki 100% öğrenemedim. Ama tek başıma güzel programlar yazabiliyorum. Veya güzel bir proje çıkarabiliyorum. Excel benim için bir hobi. Resmen evren gibi, her noktasında birsürü fikir ve olay var

 

[Cengiz Demir]

Workbooks("Kitap1").Close koduyla dosya ismi belirterek denediniz mi ?

Ayrıca Application.Quit ile de excelden çıkış yapıyor. Bu kod da makronuzda varsa. Excel'in kapanması normal.

 

[Ali Excel Öğreniyor]

Workbooks("Kitap1").Close koduyla dosya ismi belirterek denediniz mi ?

Ayrıca Application.Quit ile de excelden çıkış yapıyor. Bu kod da makronuzda varsa. Excel'in kapanması normal.

Application.Quit kodu hakkındaki sorunum şu
Çıkış yapıyor evet, ama ben exceli tekrar açınca "Bu dosya zaten açık" diyor.

 

[YUSUF44]

Cengiz Bey bu kodu (Application.Quit) kullanmamanız gerektiğini anlatmak istemiş zaten.

 

[Cengiz Demir]

Sorunuzu sorarken biraz karmaşık sormuşsunuz.
Sorununuz açık olan kitaplardan istediğinizi kapatamamanız mı ? Yoksa başka bir şey mi ?
Eğer sorununuz yada sorunlarınızdan birisi oysa. Benim önerdiğim kodla çözebilirsiniz.

Diğeri hakkında pek bilgim yok. Excelde ki bir eklenti nedeniyle sorun oluyor olabilir.
İşyeri bilgisayarımda bazı dosyaların arka planda açık kalma sorununu ben de yaşıyorum.
Nedeni ise Titus KVKK eklentisi.
Bu eklenti aktiften makro işlemler yavaşladığı gibi;
SAP' da makro ile oluşturulan excel görünümleri tam olarak kapanmıyor ve excelin performansı çok düşüyor.
(vba editörden açınca görünüyor fakat dosyaların kendileri görünmüyor.)
Yani eklentilerinizi teker teker devre dışı bırakıp deneyin isterseniz.

Application.Quit kodu hakkındaki sorunum şu
Çıkış yapıyor evet, ama ben exceli tekrar açınca "Bu dosya zaten açık" diyor.

 

[Ali Excel Öğreniyor]

Cengiz Bey bu kodu (Application.Quit) kullanmamanız gerektiğini anlatmak istemiş zaten.

Bende o konu hakkında nasıl bir hata ile karşılaştığımı belirttim zaten.

 

[Ali Excel Öğreniyor]

Cengiz Bey bu kodu (Application.Quit) kullanmamanız gerektiğini anlatmak istemiş zaten.

Application.Quit Exceli tamamen kapatan bir kod. Fakat ben bu kodu kullanmama rağmen Exceli yeniden açınca bu excelin zaten açık olduğunu söylüyor. Yani aplikasyonu kapatmak yerine gizliyor

 

[Cengiz Demir]

Böyle bir kod buldum. Denedim exceli kapatıyor.
Tam emin olmamakla birlikte; exceliniz 64 bit ise Win32_Process 'i Win64_Process olarak değiştirmeniz gerekebilir.

Farklı bir yöntemle (görevi sonlandır tarzı olabilir.) sonlandırdığı için;
muhtemelen kayıt edilmemiş verileriniz vb. varsa, onlar kaydedilmeden excel sonlanacaktır.
Makronuzu buna göre düzenlersiniz.

Sub excelkapat()
    
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object

Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")

For Each oProc In cProc

    'Rename EXCEL.EXE in the line below with the process that you need to Terminate.
    'NOTE: It is 'case sensitive

    If oProc.Name = "EXCEL.EXE" Then
      'MsgBox "KILL"   ' used to display a message for testing pur
      oProc.Terminate  'kill exe
    End If
Next

End Sub

 

[YUSUF44]

İlk mesajınızda istediğiniz kitabın kapatılmasını ama diğerlerinin kapatılmamasını istediğinizi belirtmiştiniz. Application.quit kullanmayınca istediğiniz olmuyor mu?

 

[Ali Excel Öğreniyor]

İlk mesajınızda istediğiniz kitabın kapatılmasını ama diğerlerinin kapatılmamasını istediğinizi belirtmiştiniz. Application.quit kullanmayınca istediğiniz olmuyor mu?

Yok hocam application.quit direkt Excel uygulamasını kapatıyor.

 

[YUSUF44]

Anlaşamıyoruz. Sadece kullandığınız dosyanın kapatılması için Appllication.Quit satırını iptal etmeyi denediniz mi?