【VBA】ファイル名に年月日をつけたい場合の変数の取り方

私はエクセルで資料を作るとファイル名の後に年月日をつけるようにしています。

Book1_20191023みたいに。

VBAでエクセルファイルの後に作成年月を追加する場合の変数の作り方の覚えです。

実際は〇年〇月〇日〇時〇分〇秒（YYYYMMDDHHMMSS)が対応可能

必要な分だけフォーマットする。

Sub 年月追加()

    Dim YYYYMMDD As String
    Dim YYYYMM As String
    Dim YYYY As String
    
    YYYYMMDD = Format(Now, "YYYYMMDD")
    YYYYMM = Format(Now, "YYYYMM")
    YYYY = Format(Now, "YYYY")
    
    MsgBox YYYYMMDD　’年月日の表示　20191024
    MsgBox YYYYMM　　　’年月の表示　201910
    MsgBox YYYY　　　　　’年の表示　2019
    
End Sub

ちなみにYYYYMM-1だと201909になった。