【Excel VBA】カレントフォルダを変更する方法（ChDir, ChDrive）

2025年8月14日

VBAには、CurDirというExcelアプリケーションの現在の作業フォルダ（カレントフォルダ）を取得する関数があります。それと対になる形で、このカレントフォルダをプログラムで変更するための命令も用意されています。

それがChDir（Change Directory）とChDrive（Change Drive）です。この記事では、これらの使い方と、カレントフォルダを扱う上での重要な注意点を解説します。

1. 同じドライブ内でフォルダを変更する (`ChDir`)

現在アクティブなドライブ（例: Cドライブ）の中で、カレントフォルダを別のフォルダに変更する場合は、ChDirステートメントを使います。

コードと解説

Sub ChangeCurrentDirectory_SameDrive()

    Dim newFolderPath As String
    ' 例として、Cドライブの"Work"フォルダに変更
    newFolderPath = "C:\Work"

    ' フォルダが存在するかを確認
    If Dir(newFolderPath, vbDirectory) = "" Then
        MsgBox "指定されたフォルダは存在しません。", vbExclamation
        Exit Sub
    End If
    
    '--- カレントフォルダを変更 ---
    ChDir newFolderPath
    
    '--- 変更されたことを確認 ---
    MsgBox "カレントフォルダを以下に変更しました：" & vbCrLf & CurDir

End Sub

ChDir "フォルダパス": 指定したフォルダパスにカレントフォルダを変更します。
注意点: この命令は、ドライブをまたいでは移動できません。例えば、現在のカレントフォルダがCドライブにある状態で、ChDir "D:\Data"を実行しようとしても、カレントフォルダは変更されず、エラーが発生します。

2. 別のドライブのフォルダに変更する (`ChDrive` + `ChDir`)

カレントフォルダを別のドライブ（例: CドライブからDドライブ）にあるフォルダに変更したい場合は、2段階のステップが必要です。

コードと解説

Sub ChangeCurrentDirectory_DifferentDrive()

    Dim newFolderPath As String
    ' 例として、Dドライブの"Data"フォルダに変更
    newFolderPath = "D:\Data"
    
    ' フォルダが存在するかを確認
    If Dir(newFolderPath, vbDirectory) = "" Then
        MsgBox "指定されたフォルダは存在しません。", vbExclamation
        Exit Sub
    End If
    
    '--- ステップ1: カレントドライブを変更 ---
    ChDrive newFolderPath
    
    '--- ステップ2: カレントフォルダを変更 ---
    ChDir newFolderPath
    
    '--- 変更されたことを確認 ---
    MsgBox "カレントフォルダを以下に変更しました：" & vbCrLf & CurDir

End Sub

ChDrive newFolderPath: まず、ChDriveステートメントでカレントドライブを変更します。引数にはフルパスを指定できますが、実際に使われるのはドライブ文字の部分だけです。
ChDir newFolderPath: カレントドライブが目的のドライブに切り替わった後で、ChDirを使い、そのドライブ内の目的のフォルダにカレントフォルダを変更します。