Опис середовища
Повертає значення змінної середовища операційної системи.
Прості приклади середовища
123 | Підсередовище_приклад ()MsgBox Environment ("Ім'я користувача")End Sub |
Це поверне поточне ім’я користувача, зареєстроване.
123 | Підсередовище_приклад ()MsgBox Environment ("Ім'я комп'ютера")End Sub |
Це поверне ім'я комп'ютера.
Синтаксис середовища
У редакторі VBA ви можете набрати “Environ (”, щоб побачити синтаксис функції Environment:
Функція Environ містить аргумент:
Вираз: Назва змінної середовища (рядок) або числового виразу (від 1 до 255), що відповідає порядку чисел рядка середовища в таблиці рядків середовища.
Приклади функції середовища Excel VBA
1 | MsgBox Середовище (1) |
Результат: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox Середовище (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 = Середовище (i)Якщо strEnviron "" ТодіVarSplit = Розділити (strEnviron, "=")Діапазон ("A" & nRow). Значення = iДіапазон ("B" & nRow). Значення = VarSplit (0)Діапазон ("C" & nRow). Значення = VarSplit (1)nRow = nRow + 1Закінчити ЯкщоДаліEnd Sub |
Тоді ви можете побачити всі змінні середовища наступним чином.
Результат може відрізнятися в залежності від системи. Оскільки крім змінних середовища за замовчуванням існують деякі змінні середовища.
Для будь -якого рядка, якого немає у списку змінних середовища, він поверне порожній рядок (“”).
1 | MsgBox Environment ("MyEnviron") |
Результат: ""