Tweet

Ukončení aplikace (uzavření sešitu) - Excel VBA

Úvodem

V článku se dozvíte jak lze pomocí VBA ukončovat otevřené sešity, nebo uzavřít přímo aplikaci Microsoft Excel. Článek je rozdělen na tyto kapitoly:

• Zavření aktuálního sešitu
• Zavření zvoleného sešitu
• Ukončení aplikace Excel
• Automatické ukončení aplikace Excel

Zavření aktuálního sešitu

Zavře aktivní sešit a umožňí uživateli rozhodnout, zda případné změny, mají být uloženy.

ActiveWorkbook.Close

Zavřít sešit bez uložení změn.

ActiveWorkbook.Close False ' Zavře aktivní sešit bez uložení změn ' možno zapsat i takto ' ActiveWorkbook.Close SaveChanges:=False

Zavřít sešit a uložit změny.

ActiveWorkbook.Close True ' Zavře aktivní sešit a uloží všechny změny ' další možnost uložení ' ActiveWorkbook.Close SaveChanges:=True

Další možná doplnění

' Zabranění zobrazení systemových hlášek Application.DisplayAlerts = False

Zavření zvoleného sešitu

Chceteli zavřít určitý sešit (neaktivní)

Workbooks("sesit.xls").close False ' Workbooks("sesit.xls").Close SaveChanges:=False

Ukončení aplikace Excel

Ukončení aplikace Excel se provede příkaze Application.Quit

Application.Quit

Automatické ukončení aplikace Excel

Potřebujeme za 30 vteřin po spuštění makra ukončit Excel. Řešení je jednoduché. Použijeme v prvním makru funkci OnTime, která po 30 vteřinách spustí druhé makro s funkcí pro vypnutí (a zamezení chybových hlášek).

Kód se skládá ze dvou části:

Část 1

Sub Ukonci30sec() Application.OnTime Now + TimeValue("00:00:30"), "MujKonec" End Sub

Část 2

Sub MujKonec() Application.DisplayAlerts = False Application.Quit End Sub

Závěrem

Využíváte automatické ukončování vašich sešitů?

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>