１週間分だけ保持するように変更。 Private Sub trushClear(backupPath As String, objFSO As Object) 'バックアップフォルダの存在チェック If Dir(backupPath, vbDirectory) = "" Then MkDir backupPath End If '指定したフォルダパスとファイル名をセット…

ボタンを押すとファイルをバックアップするプログラム。 ＜プログラム＞ Private Sub BackUp_Click()On Error Resume Next ThisWorkbook.Save If Err.Number <= 0 Then 'デスクトップにバックアップフォルダを作成した場合 Dim backupPath As String backupP…