年末年始休校のお知らせ
こんにちは。
ハロー！パソコン教室 イオンモール木更津校です。
２０２５年１２月３１日(水)～２０２６年１月３日(土)までお休みさせていただきます。
２０２６年１月４日(日)１０時より営業いたします。
本年もご愛顧いただき、誠にありがとうございました。
２０２６年もどうぞよろしくお願いいたします。
古いバックアップを自動削除
こんにちは
ハロー！パソコン教室イオンモール木更津校のわたなべです。
今回のテーマ
＜古いバックアップを自動削除＞
バックアップが増えすぎる前にフォルダを自動で整理しよう！！
保存する旅のコピーが残るので、安心ですが、バックアップが増えてくると、、、
容量ばかりが増えてきますよね。
前回は「日付をつけて自動保存するマクロ」を紹介しました。
そこで今回はその続きとして、増えていくバックアップを「自動で整理してくれるマクロ」を紹介します。
一定日数立ったファイルは、自動で削除する仕組みです。
・1週間前のファイルはもういらない？
・1ヶ月経過したものは消したい？
難しいコードは使いません、DirｒとKillだけでかけるので、
初心者の方にもおススメです。
Sub 古いバックアップを自動削除()
Dim 保存先 As String
保存先 = “C:\Backup\” ‘バックアップフォルダ
Dim 全保存先フォルダ As String
全保存先フォルダ = Dir(保存先 & “*.*”) ‘フォルダ内のファイルの取得
Do While 全保存先フォルダ <> “”
‘作成日が1週間前を削除
If FileDateTime(保存先 & 全保存先フォルダ) < Date – 7 Then
Kill 保存先 & 全保存先フォルダ
End If
全保存先フォルダ = Dir ‘次のファイルへ
Loop
MsgBox “古いファイルを整理しました”
End Sub
次回もお楽しみに！！
上書き保存ミスを防ぐ自動バックアップマクロを作ろう！！
こんにちは
ハロー！パソコン教室イオンモール木更津校のわたなべです。
今回のテーマ
＜上書き保存ミスを防ぐ自動バックアップマクロを作ろう！！＞
前回の記事では「日付付きで自動保存できるマクロ」を紹介しました。
これだけでもかなり便利なのですが、、、
こんなことありませんか？
「昨日のファイルに上書きしてしまった。。。」
「前回の作成したもの残しておけばよかった。。。」
こんな悩みを解決できる便利マクロを紹介します
Private Sub workbook_beforesave(ByVal saveAsUI As Boolean, cancel As Boolean)
Dim 自動保存 As String
自動保存 = “C:\Backup\” ‘バックアップ用保存フォルダ
‘バック アップのファイル名の作成
保存先名 = Format(Now, “yyyymmdd_hhnnss”) & “_” & ThisWorkbook.Name
‘コピーを保存
ThisWorkbook.SaveCopyAs 自動保存 & 保存先名
End Sub
毎日の保存はただの「上書き」になっていませんか？
このマクロを使えば、過去のものも残っているので本当に安心ですよ。
