Jste zde: Úvodní stránka » excel » vba-application » excel-vba-funkce-environ

Funkce Environ - Excel VBA

Videokurzy Excel

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

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Jak zjistit systémové proměnné ve VBA Excel. Napříkald informaci o procesoru, MAC adresu atd.

Ú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(ALLUSERSPROFILE)	Vracení cesty ke složce AllUser
Environ(APPDATA)	Vracení cesty ke složce Application Data
Environ(CITY)
Environ(CLIENTNAME)	Pro virtuální stroj
Environ(CommonProgramFiles)	Cesta ke složce Program Files
Environ(COMPUTERNAME)	Vráti jméno PC
Environ(ComSpec)	Vráti cestu k spuštění příkazového řádku
Environ(DEPT)
Environ(FP_NO_HOST_CHECK)
Environ(HOMEDRIVE)	Disk na kterém běží systém. Většinou „C:“
Environ(HOMEPATH)
Environ(LOGIN_CONTEXT)
Environ(LOGONSERVER)	Jméno pod kterým je PC zalogován
Environ(MAC)	Číslo MAC karty
Environ(MACID)	ID MAC karty
Environ(NUMBER_OF_PROCESSORS)	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(PROCESSOR_ARCHITECTURE)	Typ procesoru
Environ(PROCESSOR_IDENTIFIER)	Info o procesoru
Environ(PROCESSOR_LEVEL)	Info o procesoru
Environ(PROCESSOR_REVISION)	Info o procesoru
Environ(ProgramFiles)	Cesta k Program Files
Environ(SERVER)	Jméno serveru
Environ(SESSIONNAME)
Environ(SystemDrive)	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(USERPROFILE)	Cesta do adresáře s uživatelským nastavením
Environ(USER_ID)	Jméno uživatele
Environ(VS90COMNTOOLS)
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

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

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