Environ 関数
オペレーティング システムの環境変数に関連付けられた String を返します。 Macintosh では使用できません。
構文
Environ( { envstring | number } )
Environ 関数の構文には、次の名前付き引数があります。
指定項目 | 説明 |
---|---|
envstring | 省略可能。 環境変数の名前を含む文字列式です。 |
number | 省略可能。 環境文字列テーブル内の環境文字列の数値順序に対応する数式。 number引数には任意の数値式を指定できますが、評価される前に整数に丸められます。 |
注釈
envstring が環境文字列テーブル内にない場合は、長さ 0 の文字列 ("") が返されます。 それ以外の場合、Environ は指定された envstring に割り当てられているテキストを返します。つまり、環境文字列テーブルでその環境変数の等号 (=) の後にあるテキストを返します。
number を指定した場合は、環境文字列テーブルでその数値位置にある文字列が返されます。 この場合、Environ は envstring を含むすべてのテキストを返します。 指定された位置に環境文字列がない場合、Environ は長さ 0 の文字列を返します。
例
この例では、Environ 関数を使用して、PATH
ステートメントのエントリ番号と長さを環境文字列テーブルから提供しています。 Macintosh では使用できません。
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
EnvString = Environ(Indx) ' Get environment
' variable.
If Left(EnvString, 5) = "PATH=" Then ' Check PATH entry.
PathLen = Len(Environ("PATH")) ' Get length.
Msg = "PATH entry = " & Indx & " and length = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' Not PATH entry,
End If ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' Display message.
Else
MsgBox "No PATH environment variable exists."
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。