Miljöbeskrivning
Returnerar värdet för en operativsystemmiljövariabel.
Enkla miljöexempel
123 | Sub Environ_Example ()MsgBox Environ ("Användarnamn")Avsluta Sub |
Detta returnerar det nuvarande inloggade användarnamnet.
123 | Sub Environ_Example ()MsgBox Environ ("Datornamn")Avsluta Sub |
Detta returnerar datorns namn.
Miljösyntax
I VBA Editor kan du skriva "Environ (" för att se syntaxen för Environ -funktionen:
Environ -funktionen innehåller ett argument:
Uttryck: Namn på en miljövariabel (sträng) eller numeriskt uttryck (1 till 255) som motsvarar den numeriska ordningen för miljösträngen i tabellen miljösträng.
Exempel på Excel VBA Environ -funktion
1 | MsgBox Environ (1) |
Resultat: "ALLUSERSPROFILE = C: \ ProgramData"
1 | MsgBox Environ (0) |
Resultat: Run-time Error '5'
1 | MsgBox Environ (256) |
Resultat: Run-time Error '5'
1 | MsgBox Environ ("AllUsersProfile") |
Resultat: “C: \ ProgramData”
Om du vill se alla miljövariabler som är definierade på din dator kan du använda följande kod.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit som variantDim i As Integer, nRow As IntegernRad = 1Område ("A1"). Värde = "Index"Område ("B1"). Värde = "Miljövariabelnamn"Område ("C1"). Värde = "Miljövariabelt värde"Område ("A: C"). Kolumner.AutoFitOmråde ("A1: C1"). Font.Bold = TruenRad = 2För i = 1 Till 255strEnviron = Environ (i)Om strEnviron "" DåVarSplit = Split (strEnviron, "=")Område ("A" och nRad) .Värde = iRange ("B" & nRow) .Value = VarSplit (0)Område ("C" & nRow) .Value = VarSplit (1)nRad = nRad + 1Avsluta omNästaAvsluta Sub |
Sedan kan du se alla miljövariabler som följande.
Resultatet kan variera beroende på system. Eftersom det finns några anpassade miljövariabler förutom standardmiljövariablerna.
För alla strängar som inte finns på listan över miljövariabler returnerar den tomma strängen ("").
1 | MsgBox Environ ("MyEnviron") |
Resultat: ""