Omgevingsbeschrijving
Retourneert de waarde van een omgevingsvariabele van het besturingssysteem.
Eenvoudige omgevingsvoorbeelden
123 | Subomgeving_Example()MsgBox-omgeving ("Gebruikersnaam")Einde sub |
Hiermee wordt de huidige gebruikersnaam geretourneerd die is ingelogd.
123 | Subomgeving_Example()MsgBox-omgeving ("Computernaam")Einde sub |
Hiermee wordt de computernaam geretourneerd.
Omgevingssyntaxis
In de VBA-editor kunt u "Environ(" typen om de syntaxis voor de Environ-functie te zien:
De functie Environ bevat een argument:
Uitdrukking: Naam van een omgevingsvariabele (tekenreeks) of numerieke uitdrukking (1 tot 255) die overeenkomt met de numerieke volgorde van de omgevingstekenreeks in de tabel met omgevingstekenreeksen.
Voorbeelden van Excel VBA Environ-functie
1 | MsgBox Omgeving(1) |
Resultaat: “ALLUSERSPROFILE=C:\ProgramData”
1 | MsgBox Omgeving(0) |
Resultaat: Runtime-fout '5'
1 | MsgBox Omgeving(256) |
Resultaat: Runtime-fout '5'
1 | MsgBox-omgeving ("AllUsersProfile") |
Resultaat: "C:\ProgramData"
Om alle omgevingsvariabelen te zien die op uw computer zijn gedefinieerd, kunt u de volgende code gebruiken.
123456789101112131415161718192021222324 | SublijstAlleOmgevingVariabelen()Dim strEnviron As StringDim VarSplit As VariantDim i als geheel getal, nrij als geheel getalnRij = 1Bereik ("A1"). Waarde = "Index"Range ("B1"). Waarde = "Naam omgevingsvariabele"Bereik ("C1"). Waarde = "Waarde van omgevingsvariabele"Bereik("A:C").Kolommen.AutoAanpassenBereik ("A1:C1"). Lettertype. Vet = TruenRij = 2Voor i = 1 tot 255strEnviron = Omgeving(i)Als strEnviron "" DanVarSplit = Splitsen(strEnviron, "=")Bereik ("A" & nRij). Waarde = iBereik ("B" & nRij). Waarde = VarSplit (0)Bereik ("C" & nRij). Waarde = VarSplit(1)nRij = nRij + 1Stop alsVolgendeEinde sub |
Vervolgens kunt u alle omgevingsvariabelen als volgt zien.
Het resultaat kan per systeem verschillen. Omdat er naast de standaard omgevingsvariabelen enkele aangepaste omgevingsvariabelen zijn.
Voor elke tekenreeks die niet in de lijst met omgevingsvariabelen voorkomt, wordt een lege tekenreeks ("") geretourneerd.
1 | MsgBox Omgeving ("MijnOmgeving") |
Resultaat: ""