1. 導入：なぜEnviron関数が必要なのか
実務でVBAを組んでいると、「現在PCにログインしているユーザー名を取得したい」「一時ファイルの保存先（TEMPフォルダ）を特定したい」といった場面に遭遇することがよくあります。固定のパスをコードに直書きすると、PCを買い替えた際や、他のメンバーがツールを使った瞬間にエラーが発生してしまいます。
Environ関数を活用すれば、Windowsが保持している「環境変数」を動的に取得できるため、環境に依存しない堅牢なツールを作成することが可能です。
2. 基礎知識：環境変数とは？
環境変数とは、OSが動作するために必要な設定情報（ユーザー名、システムディレクトリ、一時フォルダの場所など）を格納している領域のことです。VBAからこの情報を呼び出すことで、コードを実行している環境の状況をリアルタイムで知ることができます。
Environ関数は、引数に「変数名」または「エントリ番号」を指定することで、その値を文字列として返します。値が存在しない場合は空文字（””）を返すという特性を覚えておきましょう。
3. 実装/解決策：特定の環境変数を取得する
実務では「エントリ番号」よりも「変数名」を直接指定する方が圧倒的に効率的です。例えば、ユーザー名を取得したい場合は、以下のように記述するだけで完了します。
変数名 = Environ(“USERNAME”)
これだけで、わざわざループ処理を行わずとも、ピンポイントで必要な情報を取得できます。
4. サンプルプログラム：実務で使える環境情報取得マクロ
以下のコードは、実務でよく利用する「ユーザー名」「TEMPフォルダ」「OSのドライブ情報」を一度に取得するサンプルです。コピー＆ペーストして動作を確認してください。
Sub GetEnvironmentInfo()
‘ 各環境変数を取得
Dim userName As String
Dim tempPath As String
Dim homeDrive As String
‘ Environ関数で直接変数名を指定して取得
userName = Environ(“USERNAME”)
tempPath = Environ(“TEMP”)
homeDrive = Environ(“HOMEDRIVE”)
‘ 取得した情報を確認
MsgBox “【現在の実行環境情報】” & vbCrLf & _
“ユーザー名: ” & userName & vbCrLf & _
“TEMPフォルダ: ” & tempPath & vbCrLf & _
“ドライブ: ” & homeDrive, vbInformation, “環境情報取得”
End Sub
5. 応用・注意点：現場でのトラブル回避
・環境変数名の表記ゆれ対策
基本的には「USERNAME」のように大文字で指定すれば問題ありませんが、環境によっては大文字小文字が混在している場合があります。比較処理を行う際は、必ず UCase関数 を使って大文字に揃えてから比較する癖をつけましょう。
・存在しない変数を取得する場合
存在しない環境変数を指定してもエラーにはならず、空文字が返るだけです。しかし、取得した値を使って「フォルダパスの生成」などを行う場合は、必ず If 変数 = “” Then といった判定を入れ、空文字の場合の例外処理（警告を出す、デフォルト値を設定するなど）を組み込むことが、バグを防ぐ重要なポイントです。
ぜひ、次回のツール作成から「固定パス」を排除し、Environ関数を活用した柔軟なコードを書いてみてください。
