VBAでファイル名に現在日時を付き足す際のコード[No28]

VBAで出力ファイル名に現在日時を付け足す際のコードの紹介です。
nowYear、nowDOW、nowHNSを＆で結合すれば次のようになります。
・2020年01月01日(水)_15時00分00秒出力

	Dim nowYear As String
    nowYear = Format(Now(), "YYYY年MM月DD日")

    Dim nowDOW As String
    nowYear = Format(Now(), "aaa")

    Dim nowHNS As String
    nowHNS = Format(Now(), "hh時nn分ss秒出力")

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。