Huomautus
Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.
Palauttaa käyttöjärjestelmän ympäristömuuttujaan liittyvän merkkijonon. Ei käytettävissä Macintoshissa
Syntaksi
Environ( { envstring | number } )
Environ-funktion syntaksilla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| ympmerkkijono | Valinnainen. Merkkijonolauseke, joka sisältää ympäristömuuttujan nimen. |
| luku | Valinnainen. Numeerinen lauseke, joka vastaa ympäristömerkkijonotaulukon ympäristömuuttujan numeerista järjestystä. Lukuargumentti voi olla mikä tahansa numeerinen lauseke, mutta pyöristetään kokonaislukuun ennen sen laskemista. |
Huomautuksia
Jos ympäristömerkkijonotaulukosta ei löydy kehystä , funktio palauttaa tyhjän merkkijonon (""). Muussa tapauksessa Environ palauttaa määritetylle yltäkyllälle määritetyn tekstin. Eli ympäristömuuttujan ympäristömerkkijonotaulukon yhtäläisyysmerkin (=) jälkeen oleva teksti.
Jos määrität luvun, funktio palauttaa ympäristömerkkijonotaulukon kyseisen numeerisen sijainnin sisältävän merkkijonon. Tässä tapauksessa Environ palauttaa koko tekstin, myös yltäkylläisen. Jos määritetyssä kohdassa ei ole ympäristömerkkijonoa, Environ palauttaa tyhjän merkkijonon.
Esimerkki
Huomautus
Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä Environ-funktiota käytetään ympäristömerkkijonotaulukon lausekkeen PATH syöttönumeron ja pituuden antamiseen. Ei käytettävissä Macintoshissa.
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