V tomto článku se naučíme, jak vyniknout zavřený sešit pomocí VBA v aplikaci Microsoft Excel 2010.
Poté, co vaše makro / kód VBA provede všechny požadované akce, chcete, aby makro soubor buď uložilo, nebo jej přeskočilo. Zde jsou tedy možnosti, které můžete v kódu nastavit, když ho požádáte o zavření souboru. K zavírání a otevírání sešitů lze použít metodu Zavřít a otevřít ve VBA.
Pokud chcete, aby kód soubor zavřel bez uložení změn - použijte tento řádek na konci kódu nebo kdekoli je potřeba -
ActiveWorkbook.Close (False) nebo ActiveWorkbook.Close False nebo ActiveWorkbook.CloseSaveChanges: = FALSE
Viz kód na tomto obrázku níže. Chcete -li zkopírovat kód, stiskněte Alt + F11 na klávesnici a ujistěte se, že je otevřen list Excelu. Potom klikněte pravým tlačítkem na objekty Microsoft Excel a vyberte Vložit. Poté klikněte na Modul. Zkopírujte kód uvedený pod obrázkem -
Možnost Explicitní
Dílčí makro1 ()
ActiveWorkbook.Close False
End Sub
Poznámka: Text ActiveWorkbook můžete změnit tak, aby odkazoval na název sešitu nebo proměnnou, kterou jste použili k identifikaci sešitu podle kódu.
Pokud chcete, aby kód ukládal změny při zavírání souboru, použijte
ActiveWorkbook.Close (True) nebo ActiveWorkbook.Close True nebo ActiveWorkbook.Close SaveChanges: = TRUE
Zde je kód -
Možnost Explicitní
Dílčí makro1 ()
ActiveWorkbook.Close True
End Sub
Pokud však chcete, aby se uživatel rozhodl, stačí zadat
ActiveWorkbook.Zavřít
Zde je kód -
Možnost Explicitní
Dílčí makro1 ()
Aktivní pracovní kniha. Zavřít
End Sub
Uživatel dostane vyskakovací okno s dotazem, zda chce sešit uložit nebo ne.
Sešity ("File1.XLS"). Zavřít SaveChanges: = False
Tento příklad zavře soubor File1.xls a zahodí všechny změny, které v něm byly provedeny.
Závěr:
Pokud je „Application.DisplayAlerts“ nastaveno na hodnotu False, nezobrazí se žádné vyskakovací okno a sešit se zavře přímo bez výzvy k uložení.
Toto vyskakovací okno se zobrazí, pokud před aplikací excel vba Activeworkbook.Close není kód „Application.DisplayAlerts“ nikde nastaven na hodnotu False.
Takže i když kód vyžaduje, abyste vypnuli výstrahy, zajistěte, aby před řádkem Activeworkbook.Close byla uvedena hodnota „Application.DisplayAlerts = True“.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám nae -mailový web