Описание на околната среда
Връща стойността на променлива на средата на операционната система.
Примери за прости среди
123 | Под -среда_Пример ()MsgBox Environment ("UserName")End Sub |
Това ще върне текущото потребителско име, в което сте влезли.
123 | Под -среда_Пример ()MsgBox Environment ("ComputerName")End Sub |
Това ще върне името на компютъра.
Синтаксис на околната среда
В редактора на VBA можете да въведете „Environ (“, за да видите синтаксиса за функцията Environ:
Функцията Environ съдържа аргумент:
Израз: Име на променлива на обкръжението (низ) или Числов израз (от 1 до 255), съответстващ на числовия ред на низа на обкръжението в таблицата с низове на среда.
Примери за Excel VBA Environment функция
1 | MsgBox Environment (1) |
Резултат: „ALLUSERSPROFILE = C: \ ProgramData“
1 | MsgBox Environment (0) |
Резултат: Грешка по време на изпълнение „5“
1 | MsgBox среда (256) |
Резултат: Грешка по време на изпълнение „5“
1 | MsgBox Environment ("AllUsersProfile") |
Резултат: „C: \ ProgramData“
За да видите всички променливи на средата, които са дефинирани на вашия компютър, можете да използвате следния код.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit като вариантDim i As Integer, nRow As IntegernRow = 1Диапазон ("A1"). Стойност = "Индекс"Диапазон ("B1"). Стойност = "Име на променливата на околната среда"Диапазон ("C1"). Стойност = "Стойност на променливата на околната среда"Диапазон ("A: C"). Колони.AutoFitДиапазон ("A1: C1"). Font.Bold = TruenRow = 2За i = 1 до 255strEnviron = Environ (i)Ако strEnviron "" ТогаваVarSplit = Разделяне (strEnviron, "=")Диапазон ("A" & nRow). Стойност = iДиапазон ("B" & nRow). Значение = VarSplit (0)Диапазон ("C" & nRow). Значение = VarSplit (1)nRow = nRow + 1Край АкоСледващияEnd Sub |
След това можете да видите всички променливи на средата, както следва.
Резултатът може да варира в зависимост от системата. Тъй като освен променливите на средата по подразбиране има някои персонализирани променливи на средата.
За всеки низ, който не съществува в списъка на променливите на средата, той ще върне празен низ („”).
1 | MsgBox Environment ("MyEnviron") |
Резултат: ""