[es] - [Excel] Zatvaranje Excela iz forme

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava-automobili.com.

+2 Profil

^{28.03.2008. u 07:41 - pre 195 meseci}

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)

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 08:21 - pre 195 meseci}

Probaj sa

Code:

Application.Quit

Pozdrav

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 08:29 - pre 195 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava-automobili.com.

+2 Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 09:42 - pre 195 meseci}

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.

Prikačeni fajlovi

Proba zatvaranja forme.xls - 32.5k

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava-automobili.com.

+2 Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 09:52 - pre 195 meseci}

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

Odgovor na temu