Excel VBA ブック 名前を付けて保存

Question

###Excel VBAにてブックを別名を付けて保存する
ブックを別名を付けて保存する際に

  Fname = "j:\1.業務管理\新_業務管理\" & CStr(y) & "年度\" _
  & CStr(m) & "月"

というファイルパスに
本日の年月日名で保存する場合、記述はどのようにすればよろしいでしょうか？
ファイル名の例：190825.xlsm、191225.xlsmなど

Answer 1

Sub name()
Dim myPath As String
myPath = "C:保存先パス"
ActiveWorkbook.SaveAs Filename:=myPath & "資料_" & Format(Date, "yyyymmdd"), _
                      FileFormat:=xlExcel8
End Sub

こんな感じでしょうか？

Comments

[nanami12]

今気づきました。拡張子xlsでしたね・・・・すみません
.xlsxにしたい場合はxlOpenXMLWorkbook、
.xlsmにしたい場合はxlOpenXMLWorkbookMacroEnabledを指定すればよさげです。

[Yoshikun_0945]

大変助かりました。
ありがとうございました。