日付を付けてcsv保存

Sub SaveCSVWithDate()
    Dim savePath As String
    Dim fileName As String
    Dim currentDate As String

    ' 現在の日付を取得し、yyyymmdd形式にフォーマットする
    currentDate = Format(Date, "yyyymmdd")

    ' 保存先のパスを指定する場合
    savePath = "C:\YourFolderPath\" ' 保存したいフォルダのパスに変更してください

    ' 保存先がデスクトップの場合
    ’savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"

    ' ファイル名を指定
    fileName = "YourFileName_" & currentDate & ".csv" ' "YourFileName"を任意のファイル名に変更してください

    ' ファイルを保存
    ActiveWorkbook.SaveAs Filename:=savePath & fileName, _
        FileFormat:=xlCSV, CreateBackup:=False

    MsgBox "CSVファイルが保存されました。"
End Sub

Sub SaveCSVWithDateToDesktop()
    Dim savePath As String
    Dim fileName As String
    Dim currentDate As String

    ' 現在の日付を取得し、yyyymmdd形式にフォーマットする
    currentDate = Format(Date, "yyyymmdd")

    ' デスクトップのパスを取得する
    savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"

    ' ファイル名を指定
    fileName = "YourFileName_" & currentDate & ".csv" ' "YourFileName"を任意のファイル名に変更してください

    ' ファイルを保存
    ActiveWorkbook.SaveAs Filename:=savePath & fileName, _
        FileFormat:=xlCSV, CreateBackup:=False

    MsgBox "CSVファイルがデスクトップに保存されました。"
End Sub