Beskrivelse av miljøet
Returnerer verdien av en miljøvariabel for operativsystemet.
Enkle miljøer
| 123 | Sub Environ_Example ()MsgBox Environ ("brukernavn")Slutt Sub |
Dette vil returnere det gjeldende brukernavnet som er logget inn.
| 123 | Sub Environ_Example ()MsgBox Environ ("Datamaskinnavn")Slutt Sub |
Dette vil returnere datamaskinnavnet.
Miljøsyntaks
I VBA Editor kan du skrive "Environ (" for å se syntaksen for Environ -funksjonen:
Environ -funksjonen inneholder et argument:
Uttrykk: Navnet på en miljøvariabel (streng) eller Numerisk uttrykk (1 til 255) som tilsvarer den numeriske rekkefølgen til miljøstrengen i tabellen miljøstreng.
Eksempler på Excel VBA -miljøfunksjon
| 1 | MsgBox Environ (1) |
Resultat: “ALLUSERSPROFILE = C: \ ProgramData”
| 1 | MsgBox Environ (0) |
Resultat: Kjøretidsfeil ‘5’
| 1 | MsgBox Environ (256) |
Resultat: Kjøretidsfeil ‘5’
| 1 | MsgBox Environ ("AllUsersProfile") |
Resultat: "C: \ ProgramData"
For å se alle miljøvariabler som er definert på datamaskinen din, kan du bruke følgende kode.
| 123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron As StringDim VarSplit som variantDim i As Integer, nRow As IntegernRad = 1Område ("A1"). Verdi = "Indeks"Område ("B1"). Verdi = "Miljøvariabelnavn"Område ("C1"). Verdi = "Miljøvariabelverdi"Område ("A: C"). Kolonner.AutoFitOmråde ("A1: C1"). Font.Bold = TruenRad = 2For i = 1 Til 255strEnviron = Miljø (i)If strEnviron "" DaVarSplit = Split (strEnviron, "=")Område ("A" og nRad) .Værdi = iOmråde ("B" og nRow) .Value = VarSplit (0)Område ("C" og nRow) .Value = VarSplit (1)nRad = nRad + 1Slutt omNesteSlutt Sub |
Deretter kan du se alle miljøvariabler som følger.
Resultatet kan variere fra system til system. Fordi det er noen tilpassede miljøvariabler i tillegg til standard miljøvariabler.
For en streng som ikke finnes på listen over miljøvariabler, returnerer den den tomme strengen ("").
| 1 | MsgBox Environ ("MyEnviron") |
Resultat: ""
