In dit artikel zullen we leren hoe u een werkmap kunt sluiten met behulp van VBA in Microsoft Excel 2010.
Nadat uw VBA-macro / code alle vereiste acties heeft uitgevoerd, wilt u dat de macro het bestand opslaat of het opslaan overslaat. Dus hier zijn de opties die u in de code kunt instellen terwijl u hem vraagt het bestand te sluiten. De methode Sluiten en openen in VBA kan worden gebruikt om werkmappen te sluiten en te openen.
Als u wilt dat de code het bestand sluit zonder de wijzigingen op te slaan - gebruik dan deze regel aan het einde van uw code of waar nodig -
ActiveWorkbook.Close (False) of ActiveWorkbook.Sluiten False of ActiveWorkbook.CloseSaveChanges:=FALSE
Zie de code in deze afbeelding hieronder. Om de code te kopiëren, drukt u op Alt + F11 op het toetsenbord terwijl u ervoor zorgt dat het Excel-blad open is. Klik vervolgens met de rechtermuisknop op Microsoft Excel-objecten en selecteer Invoegen. Klik vervolgens op Module. Kopieer de code onder de afbeelding -
Optie expliciet
Submacro1()
ActiveWorkbook.Sluiten False
Einde sub
Opmerking: u kunt de tekst ActiveWorkbook wijzigen om te verwijzen naar de naam van de werkmap of de variabele die u hebt gebruikt om de werkmap te identificeren volgens uw code.
Als je wilt dat de code de wijzigingen opslaat tijdens het sluiten van het bestand, gebruik dan
ActiveWorkbook.Close (True) of ActiveWorkbook.Sluit True of ActiveWorkbook.Close SaveChanges:=TRUE
Hier is de code -
Optie expliciet
Submacro1()
ActiveWorkbook.Sluit True
Einde sub
Als u echter wilt dat de gebruiker beslist, hoeft u alleen maar in te voeren
ActiveWorkbook.Sluiten
Hier is de code -
Optie expliciet
Submacro1()
ActiveWorkbook.Sluiten
Einde sub
De gebruiker krijgt een pop-up met de vraag of hij de werkmap wil opslaan of niet.
Workbooks("File1.XLS").Sluit SaveChanges:=False
In dit voorbeeld wordt File1.xls gesloten en worden alle wijzigingen die erin zijn aangebracht, genegeerd.
Conclusie:
Als "Application.DisplayAlerts" is ingesteld op False, krijgt u geen pop-up en wordt de werkmap direct gesloten zonder te vragen om op te slaan.
Deze pop-up verschijnt als "Application.DisplayAlerts" nergens is ingesteld op False vóór de Excel vba Activeworkbook.Close coderegel.
Dus zelfs als de code vereist dat u de waarschuwingen uitschakelt, moet u ervoor zorgen dat "Application.DisplayAlerts = True" aanwezig is vóór de regel Activeworkbook.Close.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons ope-mailsite