In questo articolo impareremo come eccellere vicino alla cartella di lavoro utilizzando VBA in Microsoft Excel 2010.
Dopo che la macro/il codice VBA ha eseguito tutte le azioni richieste, si desidera che la macro salvi il file o salti il salvataggio. Quindi ecco le opzioni che puoi impostare nel codice mentre chiedi di chiudere il file. Il metodo Close and Open in VBA può essere utilizzato per chiudere e aprire le cartelle di lavoro.
Se vuoi che il codice chiuda semplicemente il file senza salvare le modifiche, usa questa riga alla fine del codice o dove necessario -
ActiveWorkbook.Close (falso) o ActiveWorkbook.Chiudi Falso o ActiveWorkbook.CloseSaveChanges:=FALSE
Vedi il codice in questa immagine qui sotto. Per copiare il codice, premi Alt + F11 sulla tastiera assicurandoti che il foglio excel sia aperto. Quindi fare clic con il pulsante destro del mouse su Oggetti Microsoft Excel e selezionare Inserisci. Quindi fare clic su Modulo. Copia sopra il codice indicato sotto l'immagine -
Opzione esplicita
Sottomacro1()
ActiveWorkbook.Chiudi Falso
Fine sottotitolo
Nota: puoi modificare il testo ActiveWorkbook per fare riferimento al nome della cartella di lavoro o alla variabile che hai utilizzato per identificare la cartella di lavoro secondo il tuo codice.
Se vuoi che il codice salvi le modifiche mentre chiudi il file, usa
ActiveWorkbook.Close (Vero) o ActiveWorkbook.Chiudi True o ActiveWorkbook.Close SaveChanges:=TRUE
Ecco il codice -
Opzione esplicita
Sottomacro1()
ActiveWorkbook.Chiudi True
Fine sottotitolo
Tuttavia, se vuoi che l'utente decida, devi solo entrare
ActiveWorkbook.Chiudi
Ecco il codice -
Opzione esplicita
Sottomacro1()
ActiveWorkbook.Chiudi
Fine sottotitolo
L'utente riceverà un popup che chiede se desidera salvare la cartella di lavoro o meno.
Cartelle di lavoro("File1.XLS").Chiudi SaveChanges:=False
Questo esempio chiuderà File1.xls e scarterà tutte le modifiche che gli sono state apportate.
Conclusione:
Se "Application.DisplayAlerts" è stato impostato su False, non verrà visualizzato alcun popup e la cartella di lavoro si chiuderà direttamente senza chiedere di salvare.
Questo popup apparirà se "Application.DisplayAlerts" non è impostato su False prima della riga di codice excel vba Activeworkbook.Close.
Quindi, anche se il codice richiede di disattivare gli avvisi, assicurati che "Application.DisplayAlerts = True" sia presente prima della riga Activeworkbook.Close.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici asito di posta elettronica