În acest articol vom învăța cum să excelăm un registru de lucru apropiat folosind VBA în Microsoft Excel 2010.
După ce macrocodul / codul VBA a efectuat toate acțiunile necesare, ați dori ca macrocomanda fie să salveze fișierul, fie să nu o salveze. Iată deci opțiunile pe care le puteți seta în cod în timp ce îi cereți să închidă fișierul. Metoda Close și Open din VBA poate fi utilizată pentru a închide și deschide registre de lucru.
Dacă doriți ca codul să închidă fișierul fără a salva modificările - utilizați această linie la sfârșitul codului sau oriunde este necesar -
ActiveWorkbook.Close (False) sau ActiveWorkbook.Închide False sau ActiveWorkbook.CloseSaveChanges: = FALS
Vedeți codul din această imagine de mai jos. Pentru a copia codul, apăsați Alt + F11 de pe tastatură, asigurându-vă în același timp că foaia Excel este deschisă. Apoi faceți clic dreapta pe Microsoft Excel Objects și selectați Insert. Apoi faceți clic pe Modul. Copiați peste codul dat sub imagine -
Opțiune explicită
Sub macro1 ()
ActiveWorkbook.Închide False
Sfârșitul Sub
Notă: Puteți modifica textul ActiveWorkbook pentru a se referi la numele registrului de lucru sau la variabila pe care ați folosit-o pentru a identifica registrul de lucru conform codului dvs.
Dacă doriți ca codul să salveze modificările în timp ce închideți fișierul, utilizați
ActiveWorkbook.Close (True) sau ActiveWorkbook.Închideți True sau ActiveWorkbook.Close SaveChanges: = ADEVĂRAT
Iată codul -
Opțiune explicită
Sub macro1 ()
ActiveWorkbook.Închideți True
Sfârșitul Sub
Cu toate acestea, dacă doriți ca utilizatorul să decidă, trebuie doar să intrați
ActiveWorkbook.Închide
Iată codul -
Opțiune explicită
Sub macro1 ()
ActiveWorkbook.Închide
Sfârșitul Sub
Utilizatorul va primi un popup care vă va întreba dacă dorește sau nu să salveze registrul de lucru.
Cărți de lucru („File1.XLS”). Închideți SaveChanges: = False
Acest exemplu va închide File1.xls și va elimina orice modificări care au fost aduse acestuia.
Concluzie:
Dacă „Application.DisplayAlerts” a fost setat la False, nu veți primi nicio fereastră pop-up și registrul de lucru se va închide direct fără a solicita salvarea.
Acest popup va apărea dacă „Application.DisplayAlerts” nu este setat la False nicăieri înainte de Excel vba Activeworkbook.Închideți linia de cod.
Deci, chiar dacă codul necesită oprirea alertelor, asigurați-vă că „Application.DisplayAlerts = True” este prezent înainte de linia Activeworkbook.Close.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrie-ne lasite de e-mail