エクセルVBAでファイルを保存して日付名をつけるには
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#1 2015年2月7日(土)14時39分 From: みらっぽ | 返事 削除 変更 |
エクセルVBAでファイル名をつけて保存で保存するのですが、毎度同じ名前で上書き保存しますか?とメッセージがでます。こちらをださないようにしたいのですが、どのようにすればよろしいでしょうか? 以下のサンプルコードになりますので、ご教授おねがいします。 Sub Sample() filePath = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\" myname = ActiveSheet.Name ActiveSheet.Copy ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=filePath & Format(Now(), "yyyy年mm月dd日") & cells(i,2).Value & ".xls" ActiveWindow.Close End Sub |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降