Опис окружења
Враћа вредност променљиве окружења оперативног система.
Једноставни примери окружења
123 | Суб Енвирон_Екампле ()МсгБок Енвиронмент ("Корисничко име")Енд Суб |
Ово ће вратити тренутно пријављено корисничко име.
123 | Суб Енвирон_Екампле ()МсгБок Енвиронмент ("ЦомпутерНаме")Енд Суб |
Ово ће вратити име рачунара.
Енвирон Синтак
У ВБА Едитор -у можете откуцати „Енвирон (“ да бисте видели синтаксу функције Енвирон:
Функција Енвирон садржи аргумент:
Израз: Назив променљиве окружења (стринг) или нумерички израз (1 до 255) који одговара нумеричком редоследу низа окружења у табели низова окружења.
Примери Екцел ВБА функције окружења
1 | МсгБок Енвирон (1) |
Резултат: „АЛЛУСЕРСПРОФИЛЕ = Ц: \ ПрограмДата“
1 | МсгБок Енвирон (0) |
Резултат: Грешка током извођења „5“
1 | МсгБок Енвирон (256) |
Резултат: Грешка током извођења „5“
1 | МсгБок Енвиронмент ("АллУсерсПрофиле") |
Резултат: „Ц: \ ПрограмДата“
Да бисте видели све променљиве окружења које су дефинисане на вашем рачунару, можете користити следећи код.
123456789101112131415161718192021222324 | Суб ЛистАллЕнвиронВариаблес ()Дим стрЕнвирон Ас СтрингДим ВарСплит као варијантаДим и Ас Интегер, нРов Ас ИнтегернРов = 1Опсег ("А1"). Вредност = "Индекс"Опсег ("Б1"). Вредност = "Назив променљиве окружења"Опсег ("Ц1"). Вредност = "Вредност променљиве окружења"Опсег ("А: Ц"). Колоне.АутоФитОпсег ("А1: Ц1"). Фонт.Болд = ТачнонРов = 2За и = 1 до 255стрЕнвирон = Енвирон (и)Ако стрЕнвирон "" ТадаВарСплит = Сплит (стрЕнвирон, "=")Опсег ("А" & нРов). Вредност = иОпсег ("Б" & нРов) .Вредност = ВарСплит (0)Опсег ("Ц" & нРов). Вредност = ВарСплит (1)нРов = нРов + 1Крај АкоСледећиЕнд Суб |
Затим можете видети све променљиве окружења на следећи начин.
Резултат се може разликовати у зависности од система. Зато што осим подразумеваних варијабли окружења постоје и неке прилагођене променљиве окружења.
За било који низ који не постоји на листи променљивих окружења, он ће вратити празан низ („”).
1 | МсгБок Енвиронмент ("МиЕнвирон") |
Резултат: ""