VBAでカレントディレクトリを取得する方法｜今どのフォルダにいるかを簡単確認

VBA（Visual Basic for Applications）を使っていると、「現在の作業フォルダ（カレントディレクトリ）」を知りたい場面があります。たとえば、ファイルを読み込むときや書き出すときに、どのフォルダが基準になっているかを明確にすることは、バグを防ぎ、スムーズな開発につながります。

本記事では、VBAでカレントディレクトリを確認する方法について、初心者の方にもわかりやすく解説します。また、確認だけでなく、カレントディレクトリの変更方法や、よくある落とし穴についても紹介していきます。

VBAでの「カレントディレクトリ」とは？
カレントディレクトリを確認する方法
1. 基本的な使い方
ドライブを指定して確認する方法
カレントディレクトリを変更するには？
1. 変更するサンプルコード
よくある落とし穴と注意点
1. Excelファイルの場所とは別
カレントディレクトリを活用した実用例
1. ログファイルを現在のカレントディレクトリに出力する
まとめ

VBAでの「カレントディレクトリ」とは？

まず、「カレントディレクトリ（Current Directory）」とは何かを理解しておきましょう。これは、現在VBAが基準として使っているフォルダの場所を指します。ファイルを開いたり、保存したりするとき、パスを省略するとこのカレントディレクトリが使われます。

たとえば、以下のようにファイルを開くコードがあるとします。

Open "data.txt" For Input As #1

この場合、「data.txt」はカレントディレクトリに存在している必要があります。もし違う場所にあれば、ファイルが見つからずエラーになります。

カレントディレクトリを確認する方法

VBAでカレントディレクトリを確認するには、CurDir関数を使います。

基本的な使い方

Sub ShowCurrentDirectory()
    MsgBox "カレントディレクトリは：" & CurDir
End Sub

上記のコードを実行すると、メッセージボックスに現在のカレントディレクトリが表示されます。とてもシンプルですが、開発中にパスの確認をしたいときに便利です。

ドライブを指定して確認する方法

CurDir関数には、ドライブレターを指定することもできます。たとえば、CドライブやDドライブなど、複数のドライブがある環境でそれぞれのカレントディレクトリを確認したい場合です。

Sub ShowCurDirOfDrive()
    Dim drive As String
    drive = "C"
    MsgBox "Cドライブのカレントディレクトリは：" & CurDir(drive)
End Sub

このようにドライブを指定することで、目的のドライブのカレントディレクトリがわかります。

カレントディレクトリを変更するには？

確認だけでなく、カレントディレクトリを変更したいこともあります。ChDirステートメントを使えば可能です。

変更するサンプルコード

Sub ChangeCurrentDirectory()
    Dim newPath As String
    newPath = "C:\Users\Public\Documents"
    ChDir newPath
    MsgBox "カレントディレクトリを変更しました：" & CurDir
End Sub

このコードでは、指定したパスにカレントディレクトリを変更しています。ただし、指定したフォルダが存在しないとエラーになりますので注意してください。

よくある落とし穴と注意点

Excelファイルの場所とは別

ExcelのVBAでは、現在開いているブックの場所とカレントディレクトリが一致していない場合があります。たとえば、マクロを実行する前に手動でファイルを開いたり、他の方法でファイル操作をしていると、意図しないディレクトリがカレントになっていることがあります。

以下のようにして、開いているブックのフォルダを取得することもできます。

Sub GetWorkbookPath()
    MsgBox "このブックのフォルダ：" & ThisWorkbook.Path
End Sub

このThisWorkbook.PathとCurDirが異なっていた場合、どちらを基準にするか注意する必要があります。

カレントディレクトリを活用した実用例

ログファイルを現在のカレントディレクトリに出力する

Sub WriteLogToFile()
    Dim filePath As String
    filePath = CurDir & "\log.txt"
    
    Open filePath For Append As #1
    Print #1, Now & " - 処理を開始しました"
    Close #1
    
    MsgBox "ログを出力しました：" & filePath
End Sub

このように、カレントディレクトリを基準にすれば、任意のファイルを簡単に保存できます。