[Excel] Zatvaranje Excela iz forme

[ mirko1949 @ 28.03.2008. 07:41 ] @

Kako bih mogao da iz neke forme u Excelu pomocu komandnog dugmeta i koda za njega da izadjem iz Excela. Probao sam razne varijante ali nisam uspeo. (Nesto poput Unlad Me)

[ timmy @ 28.03.2008. 08:21 ] @

Probaj sa

Code:

Application.Quit

Pozdrav

[ Jpeca @ 28.03.2008. 08:29 ] @

Kod mene Application.Quit iz koda na klik dugmeta nije radilo. Međutim kad se upiše u događaj BeforeClose workbook-a onda radi
Kod u modulu forme

Code:
Private Sub cmdOK_Click()
Unload frmExit
ThisWorkbook.Close ' Poziva se događaj BeforeClose workbooka
End Sub

Kod u modulu workbooka

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
End Sub

Još bolje je da u događaju BeforeClose proveriš da li ima otvorenih sveski pa u zavisnosti od toga zatvoriš Excel

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Proverava da li ima otvorenih radnih sveski
' Ako nema zatvara Excel
' Za 2007 veziju zameniti PERSONAL.XLS sa "PERSONAL.XLSB
'
    Dim wBook As Workbook
    Dim LCount As Long
    If Cancel = False Then
        For Each wBook In Workbooks
            If wBook.Name <> Me.Name And UCase(wBook.Name) <> "PERSONAL.XLS" Then
                LCount = LCount + 1
            End If
        Next wBook
        If LCount = 0 Then Application.Quit
    End If
End Sub

[ mirko1949 @ 28.03.2008. 09:42 ] @

Probao sam Jpecino uputstvo ali mi javlja gresku:
Run-time error '424':
Object reguired
a u debuggeru pokazuje na deo koda:
Unload frmExit
Mislim da sam sve po uputstvu uradio pa zato za svaki slucaj cu prikaciti fajl kako sam ja uradio.

[ mirko1949 @ 28.03.2008. 09:52 ] @

Ustvari pronasao sam gresku. Stavio sam
Unload frmExit umasto samo frm kako sam ja dao nayiv forme.
Hvala