I denne artikel lærer vi, hvordan man udmærker sig tæt projektmappe ved hjælp af VBA i Microsoft Excel 2010.
Når din VBA -makro / kode har udført alle de nødvendige handlinger, vil du have, at makroen enten gemmer filen eller springer den over. Så her er de muligheder, du kan angive i koden, mens du beder den om at lukke filen. Metoden Luk og åben i VBA kan bruges til at lukke og åbne projektmapper.
Hvis du vil have, at koden bare skal lukke filen uden at gemme ændringerne - så brug denne linje i slutningen af din kode eller hvor det er nødvendigt -
ActiveWorkbook.Close (Falsk) eller ActiveWorkbook.Close False eller ActiveWorkbook.CloseSaveChanges: = FALSE
Se koden på dette billede herunder. For at kopiere koden skal du trykke på Alt + F11 på tastaturet og samtidig sikre, at excelarket er åbent. Højreklik derefter på Microsoft Excel -objekter og vælg Indsæt. Klik derefter på modul. Kopiér koden under billedet -
Mulighed eksplicit
Undermakro1 ()
ActiveWorkbook.Close False
Afslut Sub
Bemærk: Du kan ændre teksten ActiveWorkbook til at referere til navnet på projektmappen eller den variabel, du har brugt til at identificere projektmappen i henhold til din kode.
Hvis du vil have koden til at gemme ændringerne, mens filen lukkes, skal du bruge
ActiveWorkbook.Close (True) eller ActiveWorkbook.Close True eller ActiveWorkbook.Close SaveChanges: = TRUE
Her er koden -
Mulighed eksplicit
Undermakro1 ()
ActiveWorkbook.Close True
Afslut Sub
Men hvis du vil have brugeren til at bestemme, skal du bare indtaste
ActiveWorkbook.Close
Her er koden -
Mulighed eksplicit
Undermakro1 ()
ActiveWorkbook.Close
Afslut Sub
Brugeren får en popup, der spørger, om de vil gemme projektmappen eller ej.
Workbooks ("File1.XLS"). Luk SaveChanges: = Falsk
Dette eksempel lukker File1.xls og kasserer eventuelle ændringer, der er foretaget.
Konklusion:
Hvis "Application.DisplayAlerts" er indstillet til Falsk, får du ikke nogen popup, og projektmappen lukkes direkte uden at blive bedt om at gemme.
Denne popup vises, hvis "Application.DisplayAlerts" ikke er angivet til Falsk overalt før excel vba Activeworkbook.Close -linjen.
Så selvom koden kræver, at du slukker for advarslerne, skal du sikre dig, at "Application.DisplayAlerts = True" er til stede før linjen Activeworkbook.Close.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os påe -mail -websted