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

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

目次

Excel VBAの基本

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

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

コメント

コメントする

目次