Beskrivelse af miljøet
Returnerer værdien af en variabel i operativsystemet.
Enkle miljøer
123 | Undermiljø_eksempel ()MsgBox Environ ("Brugernavn")Afslut Sub |
Dette returnerer det aktuelle brugernavn, der er logget ind.
123 | Undermiljø_eksempel ()MsgBox Environ ("Computernavn")Afslut Sub |
Dette returnerer computerens navn.
Miljøsyntaks
I VBA Editor kan du skrive "Environ (" for at se syntaksen for Environ -funktionen:
Environ -funktionen indeholder et argument:
Udtryk: Navn på en miljøvariabel (streng) eller numerisk udtryk (1 til 255), der svarer til den numeriske rækkefølge for miljøstrengen i miljøstrengstabellen.
Eksempler på Excel VBA Environ -funktion
1 | MsgBox Environ (1) |
Resultat: "ALLUSERSPROFILE = C: \ ProgramData"
1 | MsgBox Environ (0) |
Resultat: Kørselsfejl '5'
1 | MsgBox Environ (256) |
Resultat: Kørselsfejl '5'
1 | MsgBox Environ ("AllUsersProfile") |
Resultat: "C: \ ProgramData"
For at se alle miljøvariabler, der er defineret på din computer, kan du bruge følgende kode.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit som variantDim i As Integer, nRow As IntegernRække = 1Område ("A1"). Værdi = "Indeks"Område ("B1"). Værdi = "Miljøvariabelnavn"Område ("C1"). Værdi = "Miljøvariabelværdi"Område ("A: C"). Kolonner.AutoFitOmråde ("A1: C1"). Font.Bold = TruenRække = 2For i = 1 Til 255strEnviron = Miljø (i)Hvis strEnviron "" SåVarSplit = Split (strEnviron, "=")Område ("A" og nRække) .Værdi = iOmråde ("B" og nRække) .Værdi = VarSplit (0)Område ("C" og nRække) .Værdi = VarSplit (1)nRække = nRække + 1Afslut HvisNæsteAfslut Sub |
Derefter kan du se alle miljøvariabler som følger.
Resultatet kan variere fra system til system. Fordi der er nogle tilpassede miljøvariabler ud over standardmiljøvariablerne.
For enhver streng, der ikke findes på listen over miljøvariabler, returnerer den tom streng ("").
1 | MsgBox Environ ("MyEnviron") |
Resultat: ""