Excel VBAで現在開いているファイルを本日日付付きで保存する方法

Excel VBAを使用して、現在開いているファイルを指定の場所に保存する方法について解説します。具体的には、現在開いているファイル名に本日日付を追加して、指定した場所に保存する方法を説明します。

目的：ファイル名に日付を追加して保存
必要な準備
Excel VBAコードの作成
コードの説明
セキュリティと実行時の注意点
まとめ

目的：ファイル名に日付を追加して保存

本記事では、Excel VBAを使って、現在開いているファイルを特定のフォルダ（例：デスクトップ）に、本日日付を追加したファイル名で保存する方法を紹介します。

必要な準備

この手順を実行するためには、以下の準備が必要です。

Excel VBAが有効になっていること
Excelマクロファイル（.xlsm）が開いていること
指定のフォルダ（例：C:\Users\ABC\Desktop）が存在すること

Excel VBAコードの作成

以下のVBAコードは、現在開いているExcelファイルを指定のフォルダに保存し、ファイル名に本日日付を追加するものです。具体的には、ファイル名が「a」の場合、「a2025.5.26.xlsm」として保存されます。

Sub SaveFileWithDate()
    Dim filePath As String
    Dim fileName As String
    Dim todayDate As String

    ' 現在開いているファイル名を取得
    fileName = ThisWorkbook.Name

    ' 本日日付を取得
    todayDate = Format(Date, "yyyy.m.d")

    ' 保存先のファイルパスを指定
    filePath = "C:\Users\ABC\Desktop\" & Left(fileName, Len(fileName) - 5) & todayDate & ".xlsm"

    ' ファイルを保存
    ThisWorkbook.SaveAs filePath
End Sub

このコードの解説。