Excel Uygulamasından çıkmak...

[Erhan Yavuz]

Arkadaşlar;
1. "Loder.xls" isimli excel dosyasını çalıştırıyorum.
2. Bu dosyadan "Prog.xls" isimli başka bir excel dosyasını çalıştırıyorum...
    Tüm işlemlerimi bu ikinci dosyadaki UserForm üzerinde yapıyorum.
3. İşim bitince "Prog.xls" dosyasından UserForm dan tıklayarak çıkıyorum.
4. Ancak "Loder.xls" dosyası ne yaptıysam hep açık kalıyor.
5. "Prog.xls" isimli dosyadan çıkış -için en son uyguladığım- kodlarım aşağıda..
Eksik yaptığım nedir? sizce...

Kod: [Seç]

On Error Resume Next
If Application.Windows.Count>1 then
    ActiveWorkbook.Close False
   ThisWorkbook.Close SaveChanges:=False
Elseif Application.Windows.Count=1 then
   ActiveWorkbook.Close False
End if
On Error GoTo 0
Excel.Application.Quit

[Bülent Öztürk]

Erhan abi,
Application.Quit komutu Excel'i tamamen kapatmak için yeterlidir aslında.
Senin açtığın Excel kitapları aynı Excel uygulaması içinde mi?
CreateObject ile açılan Excel kitapları, ayrı uygulamalar içinde açılıyor da...
Görev Yöneticisinden bakar mısın kaç tane Excel çalışıyor?

[Erhan Yavuz]

Erhan abi,
Application.Quit komutu Excel'i tamamen kapatmak için yeterlidir aslında.
Senin açtığın Excel kitapları aynı Excel uygulaması içinde mi?
CreateObject ile açılan Excel kitapları, ayrı uygulamalar içinde açılıyor da...
Görev Yöneticisinden bakar mısın kaç tane Excel çalışıyor?

Application.Windows.Count=2 veriyor...

Görev Yöneticisinde Uygulamalarda iki tane aynı program görünüyor.

[Bülent Öztürk]

Erhan abi, şu kodları da ekleyip dener misin?

   

Dim WMI As Object
   Dim objProcesses As Object
   Dim objProcess As Object
   Dim strQuery As String
   Set WMI = GetObject("winmgmts:")
   strQuery = "SELECT * FROM win32_Process WHERE Name = 'EXCEL.EXE'"
   Set objProcesses = WMI.execquery(strQuery)
   For Each objProcess In objProcesses
       objProcess.Terminate
   Next objProcess
   Set WMI = Nothing
   Set objProcesses = Nothing
   Set objProcess = Nothing

[Erhan Yavuz]

Hemen deneyeceğim, ama ben de bir şey fark ettim Bülent, UserForm dan çıkış yaptığım için oluyordu sanırım; Module,

Kod: [Seç]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks.Close
    Excel.Application.Quit
End Sub
yazınca düzeldi...