[es] - [Excel] Zatvaranje Excela iz forme

mirko1949
Miroslav Magdić
Kragujevac

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

Profil

^{28.03.2008. u 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)

^{28.03.2008. u 07:41}

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 338
*.adsl-4.sezampro.yu.

Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 08:21}

Probaj sa

Code:

Application.Quit

Pozdrav

^{28.03.2008. u 08:21}

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

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

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 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

Dva u dva ide jednom ako možeš da ga ućuškaš

^{28.03.2008. u 08:29}

mirko1949
Miroslav Magdić
Kragujevac

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

Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 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.

Prikačeni fajlovi

Proba zatvaranja forme.xls - 32.5k

^{28.03.2008. u 09:42}

mirko1949
Miroslav Magdić
Kragujevac

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

Profil

Re: [Excel] Zatvaranje Excela iz forme

^{28.03.2008. u 09:52}

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

^{28.03.2008. u 09:52}