Excel VBA カレントディレクトリは現在の作業ディレクトリのこと

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

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

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

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

Option Explicit

Sub GetCurrentDirectory()
    ' カレントディレクトリを取得して表示
    Dim currentDir As String
    currentDir = CurDir
    MsgBox "現在のカレントディレクトリは: " & currentDir
End Sub

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

Option Explicit

Sub ChangeCurrentDirectory()
    ' 新しいディレクトリに変更
    Dim newDir As String
    newDir = "C:\ExampleDirectory"
    
    ' ディレクトリが存在するか確認
    If Dir(newDir, vbDirectory) <> "" Then
        ChDir newDir
        MsgBox "カレントディレクトリが " & newDir & " に変更されました"
    Else
        MsgBox "ディレクトリが存在しません"
    End If
End Sub

カレントディレクトリを変更して元に戻す

Option Explicit

Sub ChangeAndRevertCurrentDirectory()
    ' 現在のディレクトリを取得
    Dim originalDir As String
    originalDir = CurDir
    
    ' 新しいディレクトリに変更
    Dim newDir As String
    newDir = "C:\ExampleDirectory"
    
    If Dir(newDir, vbDirectory) <> "" Then
        ChDir newDir
        MsgBox "カレントディレクトリが " & newDir & " に変更されました"
        
        ' 作業終了後に元のディレクトリに戻す
        ChDir originalDir
        MsgBox "カレントディレクトリが元に戻されました: " & originalDir
    Else
        MsgBox "ディレクトリが存在しません"
    End If
End Sub

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