附註: 如果 Microsoft Jet Expression Service 在沙箱模式中執行,會停用本主題中所述的函數、方法、物件或屬性,以免評估可能不安全的表達式。 如需沙盒模式的詳細資訊,請在 [說明] 中搜尋「沙盒模式」。
傳回與操作系統環境變數相關聯的 String 。 無法在 Macintosh 上使用
語法
Environ ( { envstring | number } )
Environ 函數語法具有下列自變數:
引數 |
描述 |
envstring |
選擇性。 包含環境變數名稱的字串表達式。 |
number |
選擇性。 對應到環境字串數據表中環境字串數值順序的數值表達式。 number 自變數可以是任何數值表達式,但在評估之前會四捨五入至整數。 |
註解
如果在環境字串數據表中找不到 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