保存したいフォルダに日付追加

日々のData収取結果をBOOK単位で保存の為。

　※xlsm⇒xlsxで保存（データのみ保存していきたいのです）

＜サンプル＞マクロ実行前

　　　　↓マクロ実行後

＜コード＞パスなし

Sub 保存したいフォルダに日付追加() 'パスなし

'Filename:=　保存場所です
'FileFormat:=　File形式です

ActiveWorkbook.SaveAs _
Filename:="C:\Users\karku\Desktop\さんぷる\保存したいFile名" & "_" & Format(Date, "yyyymmdd"), _
FileFormat:=xlOpenXMLWorkbook
End Sub

 ＜コード＞パスワード保存したい時

Sub 保存したいフォルダに日付け追加2() 'パス付

'Filename:=　保存場所です
'FileFormat:=　File形式です
'Password:= パスワード
'WriteResPassword:=　パスワード

ActiveWorkbook.SaveAs _
Filename:="C:\Users\karku\Desktop\さんぷる\さんぷるfile_" & Format(Date, "yyyymmdd"), _
FileFormat:=xlOpenXMLWorkbook, _
Password:="0843", _
WriteResPassword:="0843", _
ReadOnlyRecommended:=True
End Sub