Obs!: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Tjenesten Microsoft Jet Expression kjører i sandkassemodus, noe som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Returnerer strengen som er knyttet til en miljøvariabel for operativsystemet. Ikke tilgjengelig på Macintosh
Syntaks
Environ( { envstring | nummer } )
Syntaksen for funksjonen Environ har disse argumentene:
|
Argument |
Beskrivelse |
|
envstring |
Valgfritt. Strenguttrykk som inneholder navnet på en miljøvariabel. |
|
tall |
Valgfritt. Numerisk uttrykk som svarer til den numeriske rekkefølgen til miljøstrengen i miljøstrengtabellen. Tallargumentet kan være et hvilket som helst numerisk uttrykk, men avrundes til et helt tall før det evalueres. |
Kommentarer
Hvis envstring ikke finnes i miljøstrengtabellen, returneres en tom streng (""). Ellers returnerer Environ teksten som er tilordnet den angitte envstring ; det vil si teksten som følger likhetstegnet (=) i miljøstrengtabellen for miljøvariabelen.
Hvis du angir tall,returneres strengen som opptar den numeriske posisjonen i miljøstrengtabellen. I dette tilfellet returnerer Environ all teksten, inkludert tekststreng. Hvis det ikke er noen miljøstreng i den angitte posisjonen, returnerer Environ en tom streng.
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
I dette eksemplet brukes Environ-funksjonen til å angi registreringsnummeret og lengden på PATH -setningen fra miljøstrengtabellen. Ikke tilgjengelig på Macintosh.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If
