Excel VBAで日付別にファイルをフォルダに移動する方法

この記事では、Excel VBAを使用して、特定のフォルダ内のファイルを日付別に別のフォルダに移動する方法について詳しく説明します。初心者から中級者向けに、具体的なコード例とその詳細解説、応用例を含めて解説します。

基本のコード

日付別にファイルを移動するための基本的なVBAコードは以下の通りです。

Sub MoveFilesByDate()

    Dim SrcFolder As String, DestFolder As String
    Dim FileItem As Object, objFSO As Object, objFolder As Object
    Dim FileDate As Date, DateFolder As String
    
    ' ソースフォルダと移動先の基本フォルダを指定
    SrcFolder = "C:\SourceFolder\"
    DestFolder = "C:\DestinationFolder\"
    
    ' FileSystemObjectを作成
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(SrcFolder)
    
    ' ソースフォルダ内の各ファイルに対する処理
    For Each FileItem In objFolder.Files
        ' ファイルの日付を取得
        FileDate = FileDateTime(FileItem.Path)
        DateFolder = Format(FileDate, "yyyy-mm-dd")
        
        ' 日付のフォルダが存在しない場合は作成
        If Not objFSO.FolderExists(DestFolder & DateFolder) Then
            objFSO.CreateFolder DestFolder & DateFolder
        End If
        
        ' ファイルを対象の日付フォルダへ移動
        FileItem.Move DestFolder & DateFolder & "\" & FileItem.Name
    Next

    ' オブジェクトを解放
    Set objFSO = Nothing
    Set objFolder = Nothing

End Sub

コード解説

このコードは、指定したソースフォルダの中のファイルを日付別に移動する処理を行います。

1. **FileSystemObject**：このオブジェクトを使って、フォルダやファイルの操作を行います。
2. **For Each FileItem In objFolder.Files**：ソースフォルダ内の各ファイルを順に処理します。
3. **FileDateTime(FileItem.Path)**：ファイルの作成日または変更日を取得します。
4. **Format(FileDate, “yyyy-mm-dd”)**：日付を年-月-日の形式に整形します。
5. **If Not objFSO.FolderExists… Then**：対象の日付のフォルダが存在しない場合、そのフォルダを作成します。
6. **FileItem.Move**：ファイルを対象の日付フォルダに移動します。

応用例

応用例1: 拡張子別にファイルを移動

特定の拡張子のファイルだけを日付別のフォルダに移動させる場合のコードは以下の通りです。

' ... 上部のコードは同じ ...

' ソースフォルダ内の各ファイルに対する処理
For Each FileItem In objFolder.Files
    If Right(FileItem.Name, 4) = ".xls" Then ' .xls拡張子のみ対象
        ' ... 中部のコードは同じ ...
    End If
Next

' ... 下部のコードは同じ ...

応用例2: ファイル名に特定の文字列が含まれる場合のみ移動

' ... 上部のコードは同じ ...

' ソースフォルダ内の各ファイルに対する処理
For Each FileItem In objFolder.Files
    If InStr(1, FileItem.Name, "Report", vbTextCompare) > 0 Then
        ' ... 中部のコードは同じ ...
    End If
Next

' ... 下部のコードは同じ ...

応用例3: ファイルの最終更新日を基準に移動

' ... 上部のコードは同じ ...

' ソースフォルダ内の各ファイルに対する処理
For Each FileItem In objFolder.Files
    FileDate = FileItem.DateLastModified ' 最終更新日を取得
    ' ... 中部のコードは同じ ...
Next

' ... 下部のコードは同じ ...

まとめ

Excel VBAを使用することで、日付別にファイルを簡単に移動することができます。上記の基本コードと応用例を参考に、自分のニーズに合わせてカスタマイズしてください。VBAの力を活用して、日常の作業効率を向上させましょう。