注意
若 Microsoft Jet Expression Service 以沙盒模式執行，則本主題所述的函式、方法、物件或屬性將被禁用，避免評估潛在不安全的表達式。 想了解更多沙盒模式的資訊，請在說明中搜尋「sandbox mode」。
回傳與作業系統環境變數相關的 字串 。 Macintosh 無法提供
語法
Environ ( { envstring | number } )
環境函數語法具有以下論點：
| 引數 | 描述 |
|---|---|
| 環境管 | 可省略。 包含環境變數名稱的字串表達式。 |
| 編號 | 可省略。 對應環境字串在環境字串表中數值順序的數值表達式。 數字參數可以是任何數值表達式，但在評估前會四捨五入為整數。 |
註解
如果在 environment-string 表中找不到 envstring ，則會回傳一個零長度的字串 (“”) 。 否則， Environ 會回傳指定 envstring 的文字;也就是說，該環境變數在環境字串表中，相等號 (=) 後的文字。
如果你指定 數字，則會回傳該數字位置的字串。 在這種情況下， Environ 會回傳所有文字，包括 envstring。 若指定位置無環境字串， Environ 回傳一個零長度字串。
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 Environ 函數，從環境字串表中提供條目編號與語句長度 PATH 。 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