Excel VBA CurDir関数｜現在のディレクトリを取得・変更するコード

以下のようなシーンで利用されます。

・ファイルを開いたり保存したりする際に、現在の作業ディレクトリを確認する

・複数のファイルを一括処理するために、特定のディレクトリに移動する

・作業ディレクトリを一時的に変更し、操作が終わったら元に戻す

CurDir関数の構文と使い方｜基本・引数・注意点

CurDirを使うメリット

・ファイル操作のミスを防ぐ
意図しないフォルダで処理を行うリスクを軽減できます。

・動的なファイルパス管理が可能
カレントディレクトリを取得し、コードの汎用性を高められます。

1. Option Explicit
3. Sub GetSpecificDrive()
4.     MsgBox "Cドライブのカレントディレクトリ: " & CurDir("C")
5. End Sub

ChDir関数との組み合わせによるディレクトリ操作

【サンプルコード】カレントディレクトリを取得・変更する実践例

現在のディレクトリを取得する

1. Option Explicit
3. Sub GetCurrentDirectory()
4.     ' カレントディレクトリを取得して表示
5.     Dim currentDir As String
6.     currentDir = CurDir
7.     MsgBox "現在のカレントディレクトリは: " & currentDir
8. End Sub

1. Option Explicit
3. Sub ChangeCurrentDirectory()
4.     ' 新しいディレクトリに変更
5.     Dim newDir As String
6.     newDir = "C:\ExampleDirectory"
7.     
8.     ' ディレクトリが存在するか確認
9.     If Dir(newDir, vbDirectory) <> "" Then
10.         ChDir newDir
11.         MsgBox "カレントディレクトリが " & newDir & " に変更されました"
12.     Else
13.         MsgBox "ディレクトリが存在しません"
14.     End If
15. End Sub

元に戻すコード

1. Option Explicit
3. Sub ChangeAndRevertCurrentDirectory()
4.     ' 現在のディレクトリを取得
5.     Dim originalDir As String
6.     originalDir = CurDir
7.     
8.     ' 新しいディレクトリに変更
9.     Dim newDir As String
10.     newDir = "C:\ExampleDirectory"
11.     
12.     If Dir(newDir, vbDirectory) <> "" Then
13.         ChDir newDir
14.         MsgBox "カレントディレクトリが " & newDir & " に変更されました"
15.         
16.         ' 作業終了後に元のディレクトリに戻す
17.         ChDir originalDir
18.         MsgBox "カレントディレクトリが元に戻されました: " & originalDir
19.     Else
20.         MsgBox "ディレクトリが存在しません"
21.     End If
22. End Sub

応用：複数ファイル処理・バックアップ処理に応用

複数ファイルの一括処理

1. Option Explicit
3. Sub ProcessFiles()
4.     Dim fso As Object, folderPath As String, file As Object
5.     Set fso = CreateObject("Scripting.FileSystemObject")
6.     folderPath = CurDir
7.     For Each file In fso.GetFolder(folderPath).Files
8.         Debug.Print file.Name
9.     Next file
10. End Sub

自動バックアップの実装

Dirでパスが見つからないエラーが出た時の対処

1. Option Explicit
3. Sub CheckFolderExists()
4.     Dim fso As Object
5.     Set fso = CreateObject("Scripting.FileSystemObject")
6.     If fso.FolderExists("C:\Users\User\Desktop\新しいフォルダー") Then
7.         MsgBox "フォルダが存在します"
8.     Else
9.         MsgBox "フォルダが見つかりません"
10.     End If
11. End Sub

カレントディレクトリは、ファイル操作を行う際に重要な概念です。ExcelVBAでの作業を効率化するために、現在のディレクトリを取得したり変更したりする方法を理解しておくことは非常に役立ちます。初心者でも簡単に扱えるように、基本的な使い方をマスターしておきましょう。

CurDir関数の利用は、業務効率化に大きく貢献します。