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

Nový videokurz na Seduo: Excel pro začátečníky

     

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

Funkce Environ - Excel VBA


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(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: 01.11.2014 13:58

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

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

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře


Marianus

Přidáno: 23.07.14 11:28

... tieto polozky nefunguju ... Environ(MAC), Environ(MACID)... why?


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

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

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

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 - 2016 | 10710

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.