注意
如果 Microsoft Jet 運算式服務以沙箱模式執行，則會停用本主題中所述的函數、方法、物件或屬性，這會防止評估可能不安全的運算式。 如需沙箱模式的詳細資訊，請在說明中搜尋「沙箱模式」。
傳回與作業系統環境變數相關聯的 字串 。 不適用於 Macintosh
語法
Environ ( { envstring | number } )
Environ 函數語法具有下列引數：
| 引數 | 描述 |
|---|---|
| envstring | 可省略。 包含環境變數名稱的字串運算式。 |
| 數字 | 可省略。 對應至 environment-string 資料表中環境字串的數值順序的數值運算式。 number 引數可以是任何數值運算式，但在評估之前會四捨五入為整數。 |
註解
如果在 environment-string 資料表中找不到 envstring ，則會傳回零長度字串 (“”) 。 否則， Environ 會傳回指派給指定 envstring 的文字;也就是說，環境變數的 environment-string 資料表中等號 (=) 後面的文字。
如果您指定 number，則會傳回在 environment-string 資料表中佔據該數字位置的字串。 在這種情況下， Environ 會傳回所有文字，包括 envstring。 如果指定位置沒有環境字串， Environ 會傳回零長度字串。
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 Environ 函數從 environment-string 資料表提供陳述式的 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