Environ- dane systemowe w kodzie VBA

Całkiem użyteczną funkcją zaimplementowaną w języku VBA jest funkcja Environ, której celem jest pozyskiwanie wybranych informacji o systemie operacyjnym, w którym w danym momencie pracujemy. Warto jednak zwrócić uwagę na fakt, że są to 'wybrane informacje'. Niestety, nie będziemy w stanie pobrać każdego parametru związanego z systemem operacyjnym.

Zanim więc zaprezentuję relatywnie wąską listę dostępnych opcji spójrzmy tylko na samą składnię funkcji:

view sourceprint?

1	Environ(ZmiennaSystemowa)

gdzie:
ZmiennaSystemowa reprezentowana jest przez tekst lub odpowiednią wartość numeryczną. Należy też pamiętać, że wynikiem zwracanym przez funkcję Environ również jest tekst.

Do najbardziej przydatnych przykładów zastosowania funkcji Environ należy zaliczyć:

view sourceprint?

1	'pobranie systemowej nazwy użytkownika

2	Debug.Print Environ("USERNAME")

3	'pobranie ścieżki do systemowego _

4	folderu plików tymczasowych

5	Debug.Print Environ("TEMP")

6	'pobranie nazwy komputera

7	Debug.Print Environ("COMPUTERNAME")

Kilka innych przydatnych parametrów:

view sourceprint?

01	'symbol dysku głównego

02	Debug.Print Environ("HOMEDRIVE")

03	'ścieżka do folderu użytkownika

04	Debug.Print Environ("HOMEPATH")

05	'ścieżka do folderu Program Files

06	Debug.Print Environ("PROGRAMFILES")

07	'symbol dysku systemowego

08	Debug.Print Environ("SYSTEMDRIVE")

09	'ścieżka do folderu systemu Windows _

10	dwie opcje

11	Debug.Print Environ("SYSTEMROOT")

12	Debug.Print Environ("WINDIR")

13	'ścieżka do profilu użytkownika

14	Debug.Print Environ("USERPROFILE")

Wszystkich zainteresowanych pełną listą zmiennych systemowych dostępnych z pomocą funkcji Environ odsyłam do tego linku. Znaleźć tam można gotowe do przekopiowania i uruchomienia makro, które w wyniku zwróci listę szukanych wartości w arkuszu Excela.