エクセルVBAでファイルを保存して日付名をつけるには 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
