![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります。
OSはwin11、エクセルはoffice365です。
下記の参考コーードは、
1 日付が変わり保存すると別名保存される
2 日付が変わるとその都度マクロの実行が必要
ご指導を仰ぎたいのは、
※ ファイル名のみ今日の日付を適用 別名保存はしたくない
※ 日付が変われば自動的に今日の日付を適用
参考
Sub ファイル名を日付で保存()
Dim FileName As Variant
FileName = "予定表 " & Format(Date, "yyyymmdd")
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & FileName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
現在時点の日付をセルに保持しておくことが必要です。
=now()
等の関数が入っていた場合、開きなおすと、開きなおした日付になりますので、比較ができません。
あとは比較(if関数)で判定すればよいかと思います。
No.1
- 回答日時:
こんにちは
>※ ファイル名のみ今日の日付を適用 別名保存はしたくない
多分、「ファイル名を変更したい」ってことなのかなと思いますが・・
ご提示のように、Date でその時の日付を得られるので、
"予定表 " & Format(Date, "yyyymmdd") と
ThisWorkbook.Name を比較して、異なっていればファイル名を変えれば良いです。
ただし、ファイルを開いている状態で、そのファイル名を変更することはできませんので、
別名保存してから、元のファイルを削除する
という処理を行うことで、「ファイル名を変更した」のと同じ結果を得ることができるでしょう。
>※ 日付が変われば自動的に今日の日付を適用
Workbook_Open や Workbook_BeforeClose などを利用して、処理を行うようにしておくことで、自動的に処理されるようにできるでしょう。
とは言え、「毎日のファイルを順に残してゆく」のではなく、「同じファイルを名前だけ変更してゆく」ことをお望みのようなので、ファイル名を「今日の予定表」とか「予定表(本日)」とでもして固定にしておけば、ご質問のようなことをわざわざ処理する必要も無くなると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「24日の0時」って・・・
-
Excelで1週間毎の集計(今週と...
-
履歴書の日付間違いで落ちますか。
-
「時間」、「期日」、「日付」...
-
日付の大小の表現
-
エクセルで日付別にシートを分...
-
エクセル マクロ 名前を付けて...
-
差し込み印刷に当日の日付が入...
-
エクセルで6ヵ月後を自動入力で...
-
回覧板の日付について質問です...
-
パソコンで購入したデーターが...
-
Excelでヘッダに前日の日付を表...
-
2つの日付の中間の日付 エク...
-
エクセルで日報と月報を作成中...
-
ACCESSVBAのseekで複数INDEX検...
-
「3~4日」「3、4日」どう発...
-
accessで翌営業日算出
-
日付の最大値を求めるには
-
ワードの日付け自動入力のキャ...
-
シートをブックからブックへコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「24日の0時」って・・・
-
「時間」、「期日」、「日付」...
-
日付の大小の表現
-
差し込み印刷に当日の日付が入...
-
回覧板の日付について質問です...
-
パソコンで購入したデーターが...
-
エクセル マクロ 名前を付けて...
-
履歴書の日付間違いで落ちますか。
-
EXCELで日付を****年上期、****...
-
エクセルで日付別にシートを分...
-
日付以外のデータを抽出したい...
-
エクセルで6ヵ月後を自動入力で...
-
2つの日付の中間の日付 エク...
-
WEEKDAYが反映されない
-
ACCESSで1月1日~12月31日まで...
-
Excelでヘッダに前日の日付を表...
-
ACCESSで日付ごとに自動連番(...
-
PCの日付が起動のたびにリセ...
-
エクセルで日付け表示で、明治...
-
Access VBA SQL文で教えてください
おすすめ情報
ありがとうございます。
ここに来るまでにサイトで調べたのですが中々できませんでした。
我儘ですが具体的にご指導頂けませんでしょうか。