VBAのIE制御

Environ関数は、VBA関数の中でWindows・その他の関数に分類される関数です。

目次

• Environ関数とは
• Environ関数のサンプルコード
  • 実行結果
  • 解説

Environ関数とは

Environ関数は、オペレーティング システムの環境変数に割り当てられた文字列型 (String) を返します。Macintosh では使用できません。

名前付き引数 envstring に指定した環境変数名が環境文字列テーブルに存在しない場合は、長さ 0 の文字列 (" ") が返されます。名前付き引数 envstring に指定した環境変数名が環境文字列テーブルに存在していれば、その環境変数に割り当てられた文字列 (環境文字列テーブルの中で、指定した環境変数の等号 (=) の後に記述されている文字列) が返されます。
名前付き引数 number に順番を指定すると、環境文字列テーブルの中でその順番に該当する文字列が返されます。この場合、名前付き引数 envstring を含むすべての文字列が返されます。該当する環境文字列が存在しなければ、長さ 0 の文字列 (" ") が返されます。

Environ関数のサンプルコード

次の例は、Environ 関数を使って、環境文字列テーブルから環境変数 PATH のエントリ番号とバイト長を取得します。Macintosh では使用できません。

Sub Sample

Dim EnvString, Indx, Msg, PathLen        ' 変数を宣言します。
Indx = 1                                ' インデックスを 1 に設定します。
Do
    EnvString = Environ(Indx)            ' 環境変数を取得します。
    If Left(EnvString, 5) = "PATH=" Then        ' 環境変数 PATH のエントリ番号を調べます。
        PathLen = Len(Environ("PATH"))        ' バイト長を取得します。
        Msg = "PATH のｴﾝﾄﾘ番号は " & Indx & " 、長さは " & PathLen & "です。"
        Exit Do
    Else
        ' 見つからない場合は、インデックス (Indx) の値を増やします。
        Indx = Indx + 1、
    End If
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg                            ' メッセージを表示します。
Else
    MsgBox "環境変数 PATH が存在しません。"
End If

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

Windows・その他の関数一覧