Excel VBAを利用してファイル名に情報を追加する方法

この記事では、Excel VBAを使用してファイル名に登録情報やIDを追加する方法について詳しく説明します。VBAの高度な応用例を取り入れて、作業効率を高めるコツやテクニックを学ぶことができます。

基本的なコードの概要

Excel VBAを利用することで、特定のセルに格納されている情報（例:登録情報やID）をファイル名に追加することが可能です。以下は、基本的なコードの例とその詳細解説を示します。

Sub RenameWithCellInfo()
    Dim NewFileName As String
    Dim CellInfo As String
    
    ' A1セルの情報を取得
    CellInfo = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 新しいファイル名を作成（現在のファイル名 + A1セルの情報）
    NewFileName = ThisWorkbook.Name & "-" & CellInfo & ".xlsx"
    
    ' ファイル名を変更
    Name ThisWorkbook.FullName As ThisWorkbook.Path & "\" & NewFileName
End Sub

このコードでは、Sheet1のA1セルに格納されている情報を取得し、その情報を現在のファイル名の末尾に追加して保存します。

コードの詳細解説

1. `Dim NewFileName As String` および `Dim CellInfo As String`: 必要な変数を定義します。
2. `CellInfo = ThisWorkbook.Sheets(“Sheet1”).Range(“A1”).Value`: “Sheet1″のA1セルの情報を取得します。
3. `NewFileName = ThisWorkbook.Name & “-” & CellInfo & “.xlsx”`: 新しいファイル名を作成します。
4. `Name ThisWorkbook.FullName As ThisWorkbook.Path & “\” & NewFileName`: 現在のExcelファイルの名前を新しいファイル名に変更します。

応用例

以下の例では、VBAの応用を利用して、さまざまな情報をファイル名に追加する方法を示します。

1. 複数のセルの情報を組み合わせてファイル名に追加

Sub RenameWithMultipleCells()
    Dim NewFileName As String
    Dim Info1 As String, Info2 As String
    
    ' セルの情報を取得
    Info1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    Info2 = ThisWorkbook.Sheets("Sheet1").Range("B1").Value
    
    ' 新しいファイル名を作成
    NewFileName = ThisWorkbook.Name & "-" & Info1 & "-" & Info2 & ".xlsx"
    
    ' ファイル名を変更
    Name ThisWorkbook.FullName As ThisWorkbook.Path & "\" & NewFileName
End Sub

2. 現在の日付をファイル名に追加

Sub RenameWithDate()
    Dim NewFileName As String
    Dim TodayDate As String
    
    ' 現在の日付を取得
    TodayDate = Format(Date, "yyyy-mm-dd")
    
    ' 新しいファイル名を作成
    NewFileName = ThisWorkbook.Name & "-" & TodayDate & ".xlsx"
    
    ' ファイル名を変更
    Name ThisWorkbook.FullName As ThisWorkbook.Path & "\" & NewFileName
End Sub

3. 特定の条件を満たす場合のみファイル名を変更

Sub RenameWithCondition()
    Dim NewFileName As String
    Dim CellValue As Double
    
    ' B1セルの数値を取得
    CellValue = ThisWorkbook.Sheets("Sheet1").Range("B1").Value
    
    ' B1セルの数値が100以上の場合のみ、ファイル名を変更
    If CellValue >= 100 Then
        NewFileName = ThisWorkbook.Name & "-Over100.xlsx"
        Name ThisWorkbook.FullName As ThisWorkbook.Path & "\" & NewFileName
    End If
End Sub

まとめ

Excel VBAを活用することで、効率的にファイル名の変更や情報の追加が行えることを学びました。これらのコードを基に、日々の業務やデータ整理に役立てることができます。