Excel VBAでファイル内容のサマリー情報をファイル名に追加する方法

この記事では、Excel VBAを使用して、ファイルの内容のサマリー情報をファイル名に追加する方法について詳しく説明します。初心者でも理解しやすいように具体的なコード例とその解説、応用例を含めています。

基本的な手法

まず、基本的な手法として、Excelの内容をサマリーし、その情報をファイル名に追加するVBAコードを示します。

Sub AddSummaryInfoToFileName()
    Dim wb As Workbook
    Dim summaryInfo As String
    Dim newPath As String

    Set wb = ThisWorkbook

    ' サマリー情報を取得（例:シート1のA1セルの内容）
    summaryInfo = wb.Sheets(1).Range("A1").Value

    ' 新しいファイル名の作成
    newPath = wb.Path & "\" & Left(wb.Name, InStrRev(wb.Name, ".") - 1) & " - " & summaryInfo & ".xlsx"

    ' ファイル名の変更
    wb.SaveAs Filename:=newPath
End Sub

このコードでは、アクティブなワークブックのシート1のA1セルの内容をサマリー情報として取得し、その情報をファイル名に追加して保存しています。

コードの詳細解説

1. **Dim** で変数を定義します。
2. **ThisWorkbook** で現在のワークブックを取得し、**wb** 変数に格納します。
3. シート1のA1セルの内容を**summaryInfo** 変数に格納します。
4. 現在のファイル名とサマリー情報を組み合わせて新しいファイル名を作成します。
5. **SaveAs** メソッドで新しいファイル名で保存します。

応用例

応用例1: 複数セルの内容をサマリー情報にする

ファイル名に追加するサマリー情報として、複数のセルの内容を組み合わせる方法です。

Sub AddMultipleSummaryInfoToFileName()
    Dim wb As Workbook
    Dim summaryInfo As String
    Dim newPath As String

    Set wb = ThisWorkbook

    ' 複数セルの内容をサマリー情報にする
    summaryInfo = wb.Sheets(1).Range("A1").Value & "_" & wb.Sheets(1).Range("B1").Value

    ' 新しいファイル名の作成
    newPath = wb.Path & "\" & Left(wb.Name, InStrRev(wb.Name, ".") - 1) & " - " & summaryInfo & ".xlsx"

    ' ファイル名の変更
    wb.SaveAs Filename:=newPath
End Sub

応用例2: 日付をサマリー情報として追加する

現在の日付をサマリー情報としてファイル名に追加する方法です。

Sub AddDateToFileName()
    Dim wb As Workbook
    Dim summaryInfo As String
    Dim newPath As String

    Set wb = ThisWorkbook

    ' 現在の日付をサマリー情報にする
    summaryInfo = Format(Date, "yyyy-mm-dd")

    ' 新しいファイル名の作成
    newPath = wb.Path & "\" & Left(wb.Name, InStrRev(wb.Name, ".") - 1) & " - " & summaryInfo & ".xlsx"

    ' ファイル名の変更
    wb.SaveAs Filename:=newPath
End Sub

応用例3: セルの合計値をサマリー情報として追加する

指定した範囲のセルの合計値をサマリー情報としてファイル名に追加する方法です。

Sub AddSumValueToFileName()
    Dim wb As Workbook
    Dim summaryInfo As Double
    Dim newPath As String

    Set wb = ThisWorkbook

    ' シート1のA1:A10の合計値をサマリー情報にする
    summaryInfo = Application.WorksheetFunction.Sum(wb.Sheets(1).Range("A1:A10"))

    ' 新しいファイル名の作成
    newPath = wb.Path & "\" & Left(wb.Name, InStrRev(wb.Name, ".") - 1) & " - " & summaryInfo & ".xlsx"

    ' ファイル名の変更
    wb.SaveAs Filename:=newPath
End Sub

まとめ

Excel VBAを使用してファイル内容のサマリー情報をファイル名に追加する方法は、ファイルの内容を一目でわかるようにするのに非常に役立ちます。基本の手法から応用例まで、さまざまなケースに応じて活用してみてください。