次の方法で共有

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 のサポートおよびフィードバックを参照してください。