Excel VBAで日付形式を持つファイル名を日別に整理する方法

この記事では、Excel VBAを使用して、特定の日付形式を持つファイル名を日別に整理する方法について詳しく解説します。初心者向けにコードとその詳細な解説、さらに実用的な応用例を3つ以上提供します。この技術を駆使して、日常業務の効率化を図りましょう。

基本コードの解説

Sub OrganizeFilesByDate()
    Dim FilePath As String
    Dim FileName As String
    Dim DestinationFolder As String
    Dim FileDate As Date
    
    FilePath = "C:\YourDirectory\" '変更するディレクトリを指定
    FileName = Dir(FilePath & "*.*")
    
    Do While FileName <> ""
        If IsDate(Mid(FileName, 1, 10)) Then '日付がファイル名の最初の10文字にあると仮定
            FileDate = CDate(Mid(FileName, 1, 10))
            DestinationFolder = FilePath & Format(FileDate, "yyyy-MM-dd") & "\"
            If Not Dir(DestinationFolder, vbDirectory) <> "" Then
                MkDir DestinationFolder
            End If
            Name FilePath & FileName As DestinationFolder & FileName
        End If
        FileName = Dir
    Loop
End Sub

このコードは、指定されたディレクトリ内のすべてのファイルを検査し、ファイル名に日付形式（例: 2023-09-13）が含まれている場合、その日付に基づいてサブフォルダに移動します。

コードのポイント解説

1. **Dir関数**: ディレクトリ内のファイルやフォルダの名前を取得するために使用します。
2. **IsDate関数**: 文字列が日付として有効かどうかを判断します。
3. **Mid関数**: 文字列から部分文字列を取得します。ここではファイル名の最初の10文字を日付として取得します。
4. **MkDir関数**: サブフォルダが存在しない場合に新しいサブフォルダを作成します。

応用例

1. 特定の拡張子だけを対象とする

特定のファイルの拡張子（例：.txt）だけを整理する場合のコードを以下に示します。

FileName = Dir(FilePath & "*.txt")

2. ファイル名の異なる位置に日付がある場合

日付がファイル名の中央や最後にある場合は、Mid関数の引数を変更して日付を正確に取得します。

If IsDate(Mid(FileName, 5, 10)) Then

3. エラーハンドリングを追加する

エラーが発生した場合でも、コードの実行を続行できるようにするためのエラーハンドリングを追加します。

On Error Resume Next

まとめ

Excel VBAを活用することで、日付形式を持つファイル名を日別に簡単に整理することができます。上記の基本コードと応用例を参考に、自分のニーズに合わせてカスタマイズしてみてください。日常業務の自動化と効率化を実現し、生産性を向上させましょう。