VBA CurDirでOSの現在パスを正確に取得する方法と、ThisWorkbook.Pathとの決定的な違い
VBA開発を進める中で、「なぜかファイルが見つからない」「相対パスで指定した画像が読み込まれない」といった問題に直面したことはありませんか？ その原因の一つに、OSが認識する現在のカレントディレクトリ（現在パス）と、Excelブックが保存されているパスを混同しているケースが挙げられます。本記事では、VBAの CurDir 関数を使ってOSの現在パスを正確に取得する方法と、開発者が陥りがちな誤解を解消し、堅牢なアプリケーションを構築するための知識を提供します。
実務で役立つ！CurDir関数の基本コード
CurDir 関数は引数を取らず、非常にシンプルに現在のカレントディレクトリのパスを文字列で返します。以下のコードをコピー＆ペーストして、すぐに実行結果を確認してみてください。
Sub GetCurrentSystemPath()
Dim currentOSPath As String
' CurDir関数でOSの現在のカレントディレクトリを取得
currentOSPath = CurDir()
' 結果を表示
MsgBox "現在のOSカレントディレクトリ: " & currentOSPath, vbInformation, "CurDir関数によるパス取得"
Debug.Print "現在のOSカレントディレクトリ: " & currentOSPath
' （参考）特定のドライブのカレントディレクトリを取得する場合
' 例: Cドライブのカレントディレクトリ
Dim cDrivePath As String
cDrivePath = CurDir("C")
Debug.Print "Cドライブのカレントディレクトリ: " & cDrivePath
End Sub
このコードを実行すると、メッセージボックスとイミディエイトウィンドウ（Ctrl + G で表示）に、現在OSが認識しているカレントディレクトリのパスが表示されます。このパスは、エクスプローラーのアドレスバーに表示されているパスと一致しない場合があることに注目してください。
【重要】CurDirとThisWorkbook.Pathの決定的な違いとバグ防止策
🚨 重要な注意点：CurDirとThisWorkbook.Pathの決定的な違い 🚨
VBA開発者が最も陥りやすい誤解の一つが、CurDir が返すパスと ThisWorkbook.Path が返すパスを混同することです。この違いを理解しないと、相対パスでのファイル操作や外部プログラムの実行時に、意図しない場所を参照してしまい、予期せぬバグを引き起こす原因となります。
CurDirが返すパス:
これはオペレーティングシステム（OS）が管理する「現在のカレントディレクトリ」です。VBAのChDir関数でプログラム的に変更することが可能で、Excelブックを開いた場所とは必ずしも一致しません。特に、シェルコマンドを実行する際の基準パスや、特定の古いファイル操作APIのデフォルトパスとして機能します。ユーザーが手動でエクスプローラーのカレントディレクトリを変更したり、他のアプリケーションがカレントディレクトリを変更したりすると、CurDirの値も変化する可能性があります。ThisWorkbook.Pathが返すパス:
これは現在開いているExcelブックが保存されているフォルダのパスを返します。ブックが別の場所に移動して保存されれば、このパスも自動的に更新されます。Excelブックに紐づくデータファイル、画像、その他のリソースを相対パスで扱う場合は、通常ThisWorkbook.Pathを基点にすることがほとんどです。
バグ防止策：何に対する相対パスなのかを意識する！
相対パスでファイルを参照する際は、「何に対する相対パスなのか」を常に意識してください。
- Excelブックと同じフォルダ内のファイル（例:
data.csv,image.png）を参照する場合は、ThisWorkbook.Path & "\ファイル名"のように記述します。これが最も一般的で安全な方法です。 - OSのカレントディレクトリを参照する必要があるのは、限定的なシナリオ（例: シェルコマンドの実行環境を制御したい場合、あるいは厳密にOSのカレントディレクトリに依存する外部ライブラリを使用する場合）のみです。それ以外の場合に
CurDirを使って相対パスを解決すると、予期せぬ挙動につながりやすいです。
まとめ
VBAの CurDir 関数は、OSのカレントディレクトリを取得するための重要なツールです。しかし、その利用においては、Excelブックのパス (ThisWorkbook.Path) との明確な違いを理解することが不可欠です。この違いを正しく認識し、適切なパス取得方法を選択することで、相対パスに関するバグを未然に防ぎ、より堅牢で信頼性の高いVBAアプリケーションを開発することができます。
「どこにあるべきか」を正確に指定する意識を持つことで、あなたのVBAコードはさらに安定し、メンテナンスしやすくなるでしょう。