Excel VBAを使ってファイルの親子関係や階層情報をファイル名に反映する方法

この記事では、Excel VBAを利用してファイルの親子関係や階層情報をファイル名に反映する手法について解説します。具体的なVBAコードを紹介しながら、その詳細や応用例についても触れていきます。

VBAを用いたファイル名の変更基本

Excel VBAを利用することで、ファイルの親子関係や階層情報を取得し、これをもとにファイル名を自動的に変更することが可能です。

Sub ReflectHierarchyInFileName()
    Dim folderPath As String
    Dim subfolder As Object, fso As Object, folder As Object
    Dim file As Object

    folderPath = "C:\your\path" '変更するフォルダのパスを指定

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderPath)

    For Each subfolder In folder.Subfolders
        For Each file In subfolder.Files
            file.Name = subfolder.Name & "_" & file.Name
        Next file
    Next subfolder

End Sub

コードの詳細解説

上記のコードは、指定されたフォルダ内のすべてのサブフォルダとその中のファイル名を変更します。具体的には、サブフォルダの名前と元のファイル名を結合して新しいファイル名を生成します。

応用例

1. 拡張子に応じて接頭辞を追加する

特定の拡張子を持つファイルにだけ接頭辞を追加することができます。

Sub AddPrefixByExtension()
    '...
    For Each file In subfolder.Files
        If Right(file.Name, 4) = ".txt" Then
            file.Name = "TXT_" & file.Name
        End If
    Next file
    '...
End Sub

2. 日付情報をファイル名に反映

ファイルの最終更新日をファイル名に反映することができます。

Sub ReflectDateInFileName()
    '...
    For Each file In subfolder.Files
        file.Name = Format(file.DateLastModified, "yyyymmdd") & "_" & file.Name
    Next file
    '...
End Sub

3. ユーザー入力に基づくファイル名の変更

VBAのInputBox関数を使用して、ユーザーに新しいファイル名の接頭辞を入力させ、これを反映することができます。

Sub RenameByUserInput()
    Dim prefix As String
    prefix = InputBox("接頭辞を入力してください:")

    '...
    For Each file In subfolder.Files
        file.Name = prefix & file.Name
    Next file
    '...
End Sub

まとめ

Excel VBAを活用することで、ファイルの親子関係や階層情報をファイル名に簡単に反映することができます。上記のコードや応用例を参考に、作業効率をさらに向上させることが期待できます。