Environ 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

附註: 如果在沙箱模式中,可避免可能不安全的運算式的評估執行的 Microsoft Jet 運算式服務,就會停用函數、 方法、 物件或在本主題中所述的屬性。如需有關沙箱模式的詳細資訊,搜尋 「 沙箱模式 」 的說明。

傳回字串相關聯的作業系統環境變數。在 Macintosh 上無法使用

語法

內部的 Environ ( { envstring |數字} )

內部的 Environ函數語法具有下列引數︰

引數

描述

envstring

選用。包含的環境變數名稱的字串運算式。

數字

選用。數字順序環境字串環境字串資料表中的相對應的數值運算式。數字引數可以是任何數值運算式,但評估之前,會四捨五入為整數。


註解

如果在環境字串資料表中,為零長度字串找不到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

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×