Šajā rakstā mēs uzzināsim, kā izcelt tuvu darbgrāmatu, izmantojot Microsoft Excel 2010 VBA.
Kad jūsu VBA makro / kods ir veicis visas nepieciešamās darbības, vēlaties, lai makro vai nu saglabātu failu, vai arī izlaistu tā saglabāšanu. Tātad, šeit ir iespējas, kuras varat iestatīt kodā, lūdzot to slēgt failu. Aizvērt un atvērt metodi VBA var izmantot, lai aizvērtu un atvērtu darbgrāmatas.
Ja vēlaties, lai kods vienkārši aizvērtu failu, nesaglabājot izmaiņas, izmantojiet šo rindu koda beigās vai visur, kur nepieciešams -
ActiveWorkbook.Close (nepatiesa) vai ActiveWorkbook. Aizvērt nepatiesu vai ActiveWorkbook.CloseSaveChanges: = FALSE
Skatiet kodu šajā attēlā zemāk. Lai kopētu kodu, nospiediet tastatūras taustiņu kombināciju Alt + F11, vienlaikus nodrošinot, ka Excel lapa ir atvērta. Pēc tam ar peles labo pogu noklikšķiniet uz Microsoft Excel objekti un atlasiet Ievietot. Pēc tam noklikšķiniet uz moduļa. Nokopējiet zem attēla norādīto kodu -
Skaidrs variants
Apakšmakro1 ()
ActiveWorkbook. Aizvērt nepatiesu
Beigt apakš
Piezīme. Varat mainīt tekstu ActiveWorkbook, lai tas atsauktos uz darbgrāmatas nosaukumu vai mainīgo, ko izmantojāt, lai identificētu darbgrāmatu atbilstoši savam kodam.
Ja vēlaties, lai kods saglabātu izmaiņas, aizverot failu, izmantojiet
ActiveWorkbook. Aizvērt (True) vai ActiveWorkbook. Aizvērt True vai ActiveWorkbook. Aizvērt SaveChanges: = TRUE
Šeit ir kods -
Skaidrs variants
Apakšmakro1 ()
ActiveWorkbook. Aizvērt True
Beigt apakš
Tomēr, ja vēlaties, lai lietotājs izlemtu, jums vienkārši jāievada
ActiveWorkbook. Aizvērt
Šeit ir kods -
Skaidrs variants
Apakšmakro1 ()
ActiveWorkbook. Aizvērt
Beigt apakš
Lietotājs saņems uznirstošo logu, kurā tiks jautāts, vai viņš vēlas saglabāt darbgrāmatu.
Darbgrāmatas ("File1.XLS"). Aizveriet SaveChanges: = False
Šajā piemērā tiks aizvērts File1.xls un atmestas visas tajā veiktās izmaiņas.
Secinājums:
Ja “Application.DisplayAlerts” ir iestatīts uz False, jūs nesaņemsiet uznirstošos logus un darbgrāmata tiks tieši aizvērta, neprasot saglabāt.
Šis uznirstošais logs parādīsies, ja “Application.DisplayAlerts” nekur pirms Excel vba Activeworkbook.Chose rindas nav iestatīts uz False.
Tātad, pat ja kods pieprasa izslēgt brīdinājumus, pārliecinieties, vai pirms lietojumprogrammas Activeworkbook.Close rindas ir “Application.DisplayAlerts = True”.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums uze -pasta vietne