Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-priklady-kodu » vba-excel-automaticke-spusteni-skriptu

Excel VBA - automatické spuštění skriptu

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak nastavit Excel VBA, aby se po spuštění spustil patřičný skript...

Článek aktualizován a doplněn.

Úvod

Chceme-li aby při spuštění MS Excel vykonal nějakou činnost. Máme volbu:

  • Provedení skriptu pokaždé - tj. pokud soubor bude spuštěn ručně, nebo vzdáleně skriptem.
  • Provedení skriptu jen při ručním spuštění - tj. pokud soubor bude spuštěn skriptem nebude požadovaná činnost vykonána.
  • Provedení skriptu automaticky - pouze při otevření skriptem.

Automatické spuštění skriptu při otevření sešitu

Při automatickém i ručním spuštění tohoto souboru.

Jak na to? Úplně jednoduše do ThisWorkbook vložíme následující kod:

Private Sub Workbook_Open()
    MsgBox "office.lasakovi.com"
End Sub

Poznámka: Po spuštění excelu se nám zobrazí dialogové okno s textem: "office.lasakovi.com". Tj. při události (otevření sešitu) se spustí požadovaný kod (zobrazení dialogového okna).

Automatické spuštění skriptu při "ručním" volání.

Skript bude proveden pouze pokud soubor bude spuštěn ručně.

Jak na to? Použít příkaz Auto_Open, vložit do modulu

Sub Auto_Open() MsgBox "spuštěno ručně" End Sub

Spuštění skriptu v souboru volaným skriptem.

Kód doplnit do skriptu, který tento soubor volá...

Závěr

Tento text je napsán záměrně jelikož se mi množily dotazy jak spouštět makro při otevření Excelovského souboru. Předpokládám, že umíte spustit Visual Basic a víte jak vložit do ThisWorkbook patřičný kód.

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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

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ů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


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"; } } } ?>





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |