Funkce Environ - Excel VBA

Úvodem

Potřebujeme-li v Excelu zjistit údaj o PC napříkald MAC adresu, je k tomu určena funkce Environ. Syntaxe je jednoduchá:

Environ({envstring | number})

Argumenty představují:

• envstringVolitelná. Řetězcový výraz obsahující název systémové proměnné
• numberVolitelná. Číselný výraz odpovídající číselnému pořadí systémového řetězce

Poznámka: Jestliže řetězec envstring nelze najít v tabulce systémových řetězců, je vrácen řetězec s nulovou délkou (""). Jinak funkce Environ vrátí text připojený k zadanému argumentu envstring; to znamená text následující za rovnítkem (=) pro tuto systémovou proměnnou v tabulce systémových řetězců.

Úvodem

Seznam konstant. Ne na všech PC jsou všechny konstanty k dispozici.

Konstanta	Popis
Environ(ALLUSER­SPROFILE)	Vracení cesty ke složce AllUser
Environ(APPDATA)	Vracení cesty ke složce Application Data
Environ(CITY)
Environ(CLIENTNAME)	Pro virtuální stroj
Environ(Common­ProgramFiles)	Cesta ke složce Program Files
Environ(COMPU­TERNAME)	Vráti jméno PC
Environ(ComSpec)	Vráti cestu k spuštění příkazového řádku
Environ(DEPT)
Environ(FP_NO_HOS­T_CHECK)
Environ(HOMEDRIVE)	Disk na kterém běží systém. Většinou „C:“
Environ(HOMEPATH)
Environ(LOGIN_CON­TEXT)
Environ(LOGON­SERVER)	Jméno pod kterým je PC zalogován
Environ(MAC)	Číslo MAC karty
Environ(MACID)	ID MAC karty
Environ(NUMBER_OF_PRO­CESSORS)	Počet procesorů v PC
Environ(OS)	Typ OS
Environ(Path)	Cesty k instalačním složkám Windows
Environ(PATHEXT)	Vrací koncovky spustitelných programů (.EXE, .BAT atd.)
Environ(PROCES­SOR_ARCHITECTU­RE)	Typ procesoru
Environ(PROCES­SOR_IDENTIFIER)	Info o procesoru
Environ(PROCES­SOR_LEVEL)	Info o procesoru
Environ(PROCES­SOR_REVISION)	Info o procesoru
Environ(Program­Files)	Cesta k Program Files
Environ(SERVER)	Jméno serveru
Environ(SESSI­ONNAME)
Environ(System­Drive)	Jméno systemového disku
Environ(SystemRoot)	Výchozí adresář kde je naistalován systém
Environ(TEMP)	Cesta k adresáři TEMP
Environ(TMP)	Cesta k adresáři TMP
Environ(USERDOMAIN)
Environ(USERNAME)	Jméno uživatele
Environ(USERPRO­FILE)	Cesta do adresáře s uživatelským nastavením
Environ(USER_ID)	Jméno uživatele
Environ(VS90COM­NTOOLS)
Environ(windir)	Adresář systému WINDOWS

Ja zjistit požadovanou konstantu

Jednoduše použitím číselného výrazu

EnvironConst1 = Environ(1)

Použitím názvu konstanty

EnvironConst1 = Environ("ALLUSERSPROFILE")

Výsledkem:

1 ALLUSERSPROFILE=C:\Documents and Settings\All Users

Jak zjistit všechny konstanty, které jsou k dispozici

Ukázkový příklad vypíše id konstanty a její hodnotu do Excelovské tabulky.

For i = 1 To 255 strConst = Environ(i) Cells(i + 1, "A").Value = i Cells(i + 1, "B").Value = strConst Next i

Výsledkem:

1 ALLUSERSPROFILE=C:\Documents and Settings\All Users

atd.

Závěrem

Pro názory a připomínky slouží komentáře..

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). 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 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.