Excel(-bestand) sluiten vanuit formulier

[Pienjo]

Allen,

ik zou willen dat ik vanuit mijn actief formulier het gebruikte excel bestand kan afsluiten.

Iets in de trend van:

'ThisWorkbook.Close'

Iemand een idee hoe dit best op te lossen valt?

Thx

 

[Wigi]

Geef aan de knop op het formulier volgende code mee:

Private Sub Sluiten_Click()
    Unload Me
    ActiveWorkbook.Close
End Sub

Hierbij is de naam van de knop: Sluiten

Wigi

 

[Pienjo]

Ok dat ziet er al goed uit. Maar kan ik ook de applicatie Excel afsluiten?

 

[Jan van Asseldonk]

Plaats onderstaande regel als laatste in je code.

SendKeys "%{F4}", True

Toegepast in voorbeeld van Wigi wordt het
Private Sub Sluiten_Click()
Unload Me
ActiveWorkbook.Close
SendKeys "%{F4}", True
End Sub

 

[Pienjo]

Spijtig genoeg geen reactie. Ook geen foutmelding of dergelijke...

 

[frank_koreman]

Pienjo,

omdat ik dezelfde vraag heb, stuur ik bij deze een voorbeeldbestandje. hierin staat wat er tot nu toe is uitgelegd, maar je hebt inderdaad gelijk. excel zelf wordt niet afgesloten.

is er iemand die weet wat er fout is in dit bestandje?

 

[Wigi]

Jow gasten

Application.Quit

is wat jullie zoeken.

Wigi

 

[frank_koreman]

werkt inderdaad.

Private Sub Sluiten_Click()
Unload Me
Application.Quit
End Sub

dank je wel.
wat mij betreft opgelost

 

[Pienjo]

Moet ze nog testen, maar ziet er logisch uit.

thx