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

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 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 - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 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 také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek 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


Marianus

Přidáno: 23.07.14 11:28

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







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 - 2017 | 12171

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