[[20200207112318]]　『ファイル名に前月の日付を入れて保存』（クリーム）　ページの最後に飛ぶ

『ファイル名に前月の日付を入れて保存』（クリーム）

こんにちは
マクロの記録で明細書出力のExcelを作成いたしました。
出力に関してはうまくどうさしているのですが、ファイル名の日付の自動入力が上手くできません。

 Sub 明細書出力()

ActiveSheet.Range("$A$3:$K$388").AutoFilter Field:=1, Criteria1:="21", _

    Operator:=xlOr, Criteria2:="0"
  Range("B3:K3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("手数料").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("手数料").Select
    Application.CutCopyMode = False
    Sheets("手数料").Copy
    ActiveWorkbook.SaveAs Filename:="\\●●●\　手数料_2020年1月分明細.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

    Range("A3:J3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlToLeft
    Sheets("全件").Select
    ActiveSheet.ShowAllData

こちらの、ファイル名の日付を前月で自動入力させることはできませんでしょうか。
マクロの記録から作ったマクロになりますので、難しいのかな・・・

ネットをみて単純にyyyymmddなど用いて作成しましたがどうもうまくできませんでした。
教えてください。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 肝の部分だけ。

 ActiveWorkbook.SaveAs Filename:="\\●●●\　手数料_" & Format(DateSerial(Year(Now), Month(Now) - 1, 1), "yyyy年m月") & "分明細.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
（ろっくん） 2020/02/07(金) 11:44

出来ました！！！ありがとうございます！！
（クリーム） 2020/02/07(金) 14:29

コメント返信：

[ 一覧(最新更新順) ]

[[20200207112318]] 『ファイル名に前月の日付を入れて保存』（クリーム） ページの最後に飛ぶ

[[20200207112318]]　『ファイル名に前月の日付を入れて保存』（クリーム）　ページの最後に飛ぶ