Excel VBAを使ってファイルのメタデータやタグ情報をファイル名に反映する方法

この記事では、Excel VBAを使用して、ファイルのメタデータやタグ情報をファイル名に反映する方法を詳しく解説します。実際のコード例と、その詳細な解説、さらには応用例を通じて、このテクニックを最大限に活用する方法を学びましょう。

はじめに

日常業務でのファイル管理や、システムの自動化の際、ファイルのメタデータやタグ情報をファイル名に反映させることは、情報の整理や認識の手助けとなります。特にExcelは業務で頻繁に使用されるツールであり、VBAを利用することでこれを実現することができます。

基本コードの作成

以下は、Excel VBAを使ってファイルのメタデータやタグ情報をファイル名に反映する基本のコードです。

Sub ReflectMetadataToFileName()
    Dim OriginalFileName As String
    Dim NewFileName As String
    Dim Metadata As String

    '現在のファイル名を取得
    OriginalFileName = ThisWorkbook.FullName

    'メタデータやタグ情報を取得
    Metadata = ThisWorkbook.BuiltinDocumentProperties("Keywords")

    '新しいファイル名を生成
    NewFileName = Left(OriginalFileName, Len(OriginalFileName) - 5) & "_" & Metadata & ".xlsx"

    'ファイル名を変更
    Name OriginalFileName As NewFileName

End Sub

コードの解説

このコードは、以下の手順で動作します。

1. 現在のファイル名を取得します。
2. `BuiltinDocumentProperties(“Keywords”)` を使用して、ファイルのキーワード（タグ情報）を取得します。
3. 新しいファイル名を生成します。
4. `Name`ステートメントを使用して、ファイル名を変更します。

応用例

1. 複数のメタデータを取得してファイル名に追加

Sub MultipleMetadataToFileName()
    Dim OriginalFileName As String
    Dim NewFileName As String
    Dim Author As String, Title As String

    '現在のファイル名を取得
    OriginalFileName = ThisWorkbook.FullName

    'メタデータを取得
    Author = ThisWorkbook.BuiltinDocumentProperties("Author")
    Title = ThisWorkbook.BuiltinDocumentProperties("Title")

    '新しいファイル名を生成
    NewFileName = Left(OriginalFileName, Len(OriginalFileName) - 5) & "_" & Author & "_" & Title & ".xlsx"

    'ファイル名を変更
    Name OriginalFileName As NewFileName

End Sub

解説

このコードでは、「Author」と「Title」のメタデータを取得し、これをファイル名に追加しています。

2. 特定の条件でファイル名を変更

Sub ConditionalRename()
    Dim OriginalFileName As String
    Dim NewFileName As String
    Dim Category As String

    '現在のファイル名を取得
    OriginalFileName = ThisWorkbook.FullName

    'メタデータを取得
    Category = ThisWorkbook.BuiltinDocumentProperties("Category")

    '条件判定
    If Category = "重要" Then
        '新しいファイル名を生成
        NewFileName = Left(OriginalFileName, Len(OriginalFileName) - 5) & "_IMPORTANT.xlsx"
        'ファイル名を変更
        Name OriginalFileName As NewFileName
    End If

End Sub

解説

「Category」というメタデータが「重要」である場合に、ファイル名に”_IMPORTANT”を追加します。

3. 日付を含めてファイル名を変更

Sub RenameWithDate()
    Dim OriginalFileName As String
    Dim NewFileName As String
    Dim TodayDate As String

    '現在のファイル名を取得
    OriginalFileName = ThisWorkbook.FullName

    '今日の日付を取得
    TodayDate = Format(Date, "yyyy_mm_dd")

    '新しいファイル名を生成
    NewFileName = Left(OriginalFileName, Len(OriginalFileName) - 5) & "_" & TodayDate & ".xlsx"

    'ファイル名を変更
    Name OriginalFileName As NewFileName

End Sub

解説

今日の日付を`Format`関数を使用して取得し、ファイル名に追加しています。

まとめ

Excel VBAを利用することで、ファイルのメタデータやタグ情報をファイル名に反映する作業を簡単かつ効率的に行うことができます。実際の業務やプロジェクトでこの技術を活用し、データ管理の質を向上させてください。