Document sluiten met VBA code in macro

[HMDH]

Beste forum,

Kan ik met een Macro een Excel document sluiten en e.v.t. hernoemen?

Groet, HarryM.

 

[edmoor]

Kort antwoord: Ja.
Iets langer:
Dat kan met Thisworkbook.SaveAs en Thisworkbook.Close
E.e.a. kan afhankelijk zijn van wat precies je bedoeling is.

 

[snb]

Maak liever een kopie met .SaveCopyAs

 

[HMDH]

Bedankt voor de reacties.

Is er ook een mogelijkheid om Excel geheel te sluiten?
Nu sluit mijn document maar blijft Excel open staan.
ook zou ik willen dat het gebruikte document sluit als een Sjabloon.
Dit Sjabloon staat op mijn bureaublad.
De route is; C:\Users\HARRY DEN HEIJER\Desktop

 

[edmoor]

Excel sluiten kan met Application.Quit
De mogelijke formaten voor het opslaan van een bestand staan hier:
https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

 

[HMDH]

Onderstaand staat de macro zoals ik deze in elkaar heb gesleuteld.
De werking is nog niet goed.
Kan jij deze waar nodig voor me aanpassen a.u.b.

Groet, HarryM.


Sub Sluiten()
'
' Sluiten van document Macro

Call Echtwissen

Sheets("Menu").Select
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Worksheet menu Bar").Enabled = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Range("A1").Select
'ActiveWindow.Close
ThisWorkbook.SaveCopyAs
Application.Quit
'ThisWorkbook.Close


'ChDir "C:\Users\HARRY DEN HEIJER\Desktop"

 

[edmoor]

"Werkt niet goed" zegt niets over wat er niet goed is.
Je zal bij SaveCopyAs wel een nieuwe naam op moeten geven en aangeven waar deze moet worden opgeslagen.
Daarnaast kan je met SaveCopyAs een document niet met een ander formaat dan het huidige opslaan.
En vergeet ChDir.

 

[HMDH]

Ik had toch de route opgegeven!
Is dat niet goed?
SaveAs??? Ik weet niet hoe precies verder.

ThisWorkbook.SaveCopyAs. ("C:\Users\HARRY DEN HEIJER\Desktop")

 

[snb]

In Excel heeft een sjabloon (.xltm) geen meerwaarde boven een gewoon Excelbestand (.xlsx, xlsm of xlsb).
Je kunt ieder gewoon Excelbestand als sjabloon gebruiken.

 

[edmoor]

Ik had toch de route opgegeven!
Is dat niet goed?
SaveAs??? Ik weet niet hoe precies verder.

ThisWorkbook.SaveCopyAs. ("C:\Users\HARRY DEN HEIJER\Desktop")

Zo staat het niet in de code die je plaatste.
Daarnaast zal er nog een bestandsnaam bij moeten.

 

[HMDH]

De bestandsnaam is: WCK 19-08-2021.xlsm

Ik weet niet waar dat moet staan en hoe op de juiste wijze in de VBA in te typen.
Graag even een voorbeeld zodat ik weet hoe de regel er precies uit moet zien.

 

[edmoor]

Je kan gegeven code ook eens in Google intikken.
Daar kan je veel van leren.
Bijvoorbeeld waar je om vroeg:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.savecopyas

Kijk dan ook eens naar het verschil tussen ThisWorkbook en ActiveWorkbook.

 

[HMDH]

Beste edmoor,

ik begrijp dat je dit voorstelt, maar ik ben een 70 plusser en niet voldoende geschoold om Engelse teksten te lezen en te begrijpen.

Met wat knippen en plakken kom ik een heel eind.
Ik heb soms wat hulp nodig om de juiste dingen op de juiste plek te zetten.

Uit jou reactie merk ik dat je meestal met Excel gebruiker hebt te maken zoals jezelf bent.
Maar helaas ik ben slecht een ervaren gebruiker.
Ik had de hoop met wat simpele vragen en antwoorden mijn uiteindelijke doel te bereiken.

Het bedienen en het maken van wat macro's lukt mij wel.
In ieder geval bedankt voor je bijdrage zover.

Groet, HarryM.

 

[edmoor]

Om je document op te slaan met een andere naam kan je dit gebruiken:

ThisWorkbook.SaveCopyAs ("C:\Users\HARRY DEN HEIJER\Desktop\WCK 19-08-2021.xlsm")

De locatie en naam kan je uiteraard aanpassen.

 

[HMDH]

Dank je.

tot slot;
Hier het laatste stukje van de Macro.
Maar de applicatie Excel sluit niet!
Wat is er hier fout of staat verkeerd geplaatst?

ActiveWindow.Close
ThisWorkbook.SaveCopyAs ("C:\Users\HARRY DEN HEIJER\Desktop\WCK 18-08-2021.xltm")
ThisWorkbook.Close
Application.Quit

 

[edmoor]

Dat komt omdat je ThisWorkbook.Close gebruikt voordat je Application.Quit doet.
Het document is dan gesloten en dus de macro ook niet meer actief.

 

[HMDH]

Is gewijzigd maar applicatie sluit niet af.
Ik gebruik Office 2019.
Heeft dat er nog mee te maken?

 

[edmoor]

Jet zegt niet wat er dan wel gebeurt.
Krijg je een foutmelding?

Dit zou het gewoon moeten doen:

ThisWorkbook.SaveCopyAs ("C:\Users\HARRY DEN HEIJER\Desktop\WCK 18-08-2021.xltm")
ThisWorkbook.Saved = True
Application.Quit

 

[HMDH]

Dit blijft staan.

 

[edmoor]

Dan wordt dus die Application.Quit niet uitgevoerd.
Als je niet bekend bent met Debug Mode, plaats dan je document hier eens.