Excel 2003- Afsluiten zonder te vragen of je het bestand wil opslaan

[saggitarius]

Voor mijn werk ben ik het e.e.a. aan het "knutselen", maar het laatste stukje lukt niet

Ik heb de onderstaande VBA-code en wil op het eind het bestand afsluiten zonder dat er gevraagd wordt of ik het bestand wil opslaan (want dat is al gebeurd);
Weet iemand waar ik de fout maak?

Het begin gaat goed, alleen wordt het bestand niet gesloten


Sub opslaan()

Dim s_dir As String

s_dir = "-----:\----------\------------" & Range("C5").Value
If Dir(s_dir, vbDirectory) = "" Then MkDir s_dir
ActiveSheet.Copy
ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"



'stuurt mail na afronden
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Application.DisplayAlerts = True

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<font size=""3"" face=""Calibri"">" & _
"FYI,<br><br>" & _
"Er is een bestand aangemaakt of aangepast.<br><br>" & _
"Click op de link om het formulier te openen : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Link naar formulier</A>"

On Error Resume Next
With OutMail
'email naar coordinator
.To = ActiveSheet.Range("X4")
.CC = ""
.BCC = ""
.Subject = ActiveSheet.Range("i2")
.HTMLBody = strbody
.Send 'or use .Display

End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing


Application.Quit

End Sub

 

[HSV]

Je nieuwe ActiveWorkbook is opgeslagen volgens onderstaande coderegel, maar Thisworkbook (waar je code in staat) niet.

[COLOR=#333333]ActiveSheet.Copy[/COLOR]
[COLOR=#333333]ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"[/COLOR]

annvulling:
Sluiten van Thisworkbook incl. opslaan doe je zo:

thisworkbook.close true

Zonder op te slaan wordt 'true' → 'false'.

 

[saggitarius]

Opgelost

Opgelost op de voorgestelde wijze, heel hartelijk bedankt

 

[jkpieterse]

En als je zowel ThisWorkbook als Excel wilt sluiten:

ThisWorkbook.Saved = True 'Wijzigingen niet opslaan!
Application.Quit