Descrierea mediului
Returnează valoarea unei variabile de mediu a sistemului de operare.
Exemple simple de mediu
| 123 | Sub Environ_Example ()MsgBox Environ („UserName”)Sfârșitul Sub |
Aceasta va returna numele de utilizator curent conectat.
| 123 | Sub Environ_Example ()MsgBox Environ („ComputerName”)Sfârșitul Sub |
Aceasta va returna numele computerului.
Sintaxa Environ
În Editorul VBA, puteți tasta „Environ (” pentru a vedea sintaxa funcției Environ:
Funcția Environ conține un argument:
Expresie: Numele unei variabile de mediu (șir) sau expresie numerică (1 la 255) corespunzătoare ordinii numerice a șirului de mediu din tabelul șir de mediu.
Exemple de funcții Excel VBA Environ
| 1 | MsgBox Environ (1) |
Rezultat: „ALLUSERSPROFILE = C: \ ProgramData”
| 1 | MsgBox Environ (0) |
Rezultat: Eroare în timp de rulare „5”
| 1 | MsgBox Environ (256) |
Rezultat: Eroare în timp de rulare „5”
| 1 | MsgBox Environ („AllUsersProfile”) |
Rezultat: „C: \ ProgramData”
Pentru a vedea toate variabilele de mediu definite pe computer, puteți utiliza următorul cod.
| 123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit ca variantăDim i Integer, nRow As IntegernRow = 1Interval ("A1"). Valoare = "Index"Interval ("B1"). Valoare = "Nume variabilă de mediu"Interval ("C1"). Valoare = "Valoare variabilă de mediu"Gama („A: C”). Coloane.AutoFitGama ("A1: C1"). Font.Bold = TruenRow = 2Pentru i = 1 până la 255strEnviron = Environ (i)Dacă strEnviron "" AtunciVarSplit = Split (strEnviron, "=")Gama („A” & nRow) .Value = iGama („B” & nRow) .Value = VarSplit (0)Gama („C” & nRow) .Value = VarSplit (1)nRow = nRow + 1End IfUrmătorulSfârșitul Sub |
Apoi, puteți vedea toate variabilele de mediu după cum urmează.
Rezultatul poate varia în funcție de sistem. Deoarece există câteva variabile de mediu personalizate pe lângă variabilele de mediu implicite.
Pentru orice șir care nu există pe lista de variabile de mediu, acesta va returna șirul gol („”).
| 1 | MsgBox Environ („MyEnviron”) |
Rezultat: „”
