Excel VBAを使ったフォルダ名基盤のファイル名変更方法

この記事では、Excel VBAを使用して、指定されたフォルダ内のファイル名をそのフォルダ名を基に変更する方法について詳しく説明します。具体的なコード例、その詳細な解説、さらには応用例まで網羅的に解説します。初心者の方でも理解しやすく、実際に活用できる内容となっておりますので、ぜひ最後までお読みください。

基本的なコード

Excel VBAを使用して、特定のフォルダ内の全てのファイル名を、そのフォルダ名を基に変更する方法を以下に示します。

Sub RenameFilesBasedOnFolderName()
    Dim FolderPath As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim NewName As String
    
    ' フォルダの選択
    FolderPath = Application.FileDialog(msoFileDialogFolderPicker).Show
    If FolderPath = "" Then Exit Sub
    
    ' FileSystemObjectの作成
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(FolderPath)
    
    ' フォルダ内の各ファイルに対して名前変更処理を行う
    For Each objFile In objFolder.Files
        NewName = objFolder.Name & "_" & objFile.Name
        objFSO.MoveFile objFile.Path, FolderPath & "\" & NewName
    Next
    
    ' オブジェクトの開放
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

コードの解説

このコードでは、まず`FileDialog`を使用してユーザーにフォルダを選択させます。選択したフォルダのパスは`FolderPath`に保存されます。

次に、`Scripting.FileSystemObject`を使用してファイル操作を行います。このオブジェクトを使用すると、フォルダやファイルの操作がVBAから容易に行えます。

`objFolder.Files`を使用して、選択したフォルダ内の各ファイルに対して、新しい名前（フォルダ名 + 元のファイル名）を付けて名前変更処理を行います。

応用例

1. 指定した拡張子のファイルだけ名前を変更する

指定した拡張子（例：.txt）のファイルのみ名前を変更したい場合には、次のようなコードを使用します。

' ... [略] ...

For Each objFile In objFolder.Files
    If objFSO.GetExtensionName(objFile.Name) = "txt" Then
        NewName = objFolder.Name & "_" & objFile.Name
        objFSO.MoveFile objFile.Path, FolderPath & "\" & NewName
    End If
Next

' ... [略] ...

2. ファイル名に日付を追加する

ファイル名に現在の日付を追加する場合、以下のようにコードを変更します。

' ... [略] ...

For Each objFile In objFolder.Files
    NewName = objFolder.Name & "_" & Format(Date, "yyyymmdd") & "_" & objFile.Name
    objFSO.MoveFile objFile.Path, FolderPath & "\" & NewName
Next

' ... [略] ...

3. 特定のキーワードが含まれるファイルだけ名前を変更する

「report」というキーワードが含まれるファイルだけ名前を変更する場合、以下のコードを参考にしてください。

' ... [略] ...

For Each objFile In objFolder.Files
    If InStr(1, objFile.Name, "report", vbTextCompare) > 0 Then
        NewName = objFolder.Name & "_" & objFile.Name
        objFSO.MoveFile objFile.Path, FolderPath & "\" & NewName
    End If
Next

' ... [略] ...

まとめ

Excel VBAを利用して、フォルダ名を基に内包するファイルの名前を変更する方法について紹介しました。基本的なコードから応用例まで、実際の業務やプロジェクトで役立つ情報を提供しましたので、ぜひ参考にしてください。