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

Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-zjisteni-verze

Zjištění verze Excelu - VBA

Videokurzy Excel

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

Jak zjistit pomocí VBA verzi i jazykovou MS Excelu.

Doplněno: 29.7.2015

Úvodem

Jelikož kompatibilata MS Excelu je problematická, mnohdy je potřeba mít pro každou verzi jiný kód. Jak ale zjistit verzi MS Excelu? Čtěte dále.

VBA kód pro verzi Excel

Následujícím kodem lze zjisti verzi MS Excelu.

If Application.Version = "16.0" Then MsgBox "Používáte Excel 2016." ElseIf Application.Version = "15.0" Then MsgBox "Používáte Excel 2013." ElseIf Application.Version = "14.0" Then MsgBox "Používáte Excel 2010." ElseIf Application.Version = "12.0" Then MsgBox "Používáte Excel 2007." ElseIf Application.Version = "11.0" Then MsgBox "Používáte Excel 2003." ElseIf Application.Version = "9.0" Then MsgBox "Používáte Excel 2000." ElseIf Application.Version = "8.0" Then MsgBox "Používáte Excel 97." ElseIf Application.Version = "7.0" Then MsgBox "Používáte Excel 95." End If

Poznámka: Lze řešit i pomocí Select Case.

VBA kód pro jazakovou verzi Excel

Jazyková verze Excel se dá zjistit:

Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI) Case 1029: MsgBox "CZ" Case 1051: MsgBox "EN" Case 1045: MsgBox "Polsky" Case Else: MsgBox "Nelze rozhodnout." End Select

Poznámka: Děkuji Jojo za doplnění v komentářích

VBA kód regionální nastavení Windows

Regionální nastavení Windows

Select Case Application.International(xlCountryCode) Case 1: MsgBox "Angličtina - USA – jak jinak ;)" Case 33: MsgBox "Francie" Case 42: MsgBox "Česká Republika" Case 45: MsgBox "Dánsko" Case 48: MsgBox "Polsko" Case Else: MsgBox "Nelze rozhodnout." End Select

Poznámka: Bohužel neodpovídá číslům jazykové verze Excel :(

Závěrem

Doufám, že Vám kód pomůže.

Č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 |