|
データを入力しているシートだけバックアップのため
コピーをとることを考え、こちらの投稿を参考に
以下のコードにてバックアップをとることが出来るようになりましたが、
このコードを実行する度に、sheet1(2) sheet1(1) sheet1と言うように
シートが増えていきます。シートを増やさずに上書きするようにするか
ある程度の枚数で以前のシートを削除するような方法は無いでしょうか?
よろしくお願いいたします。
Sub SheetCopy()
Application.ScreenUpdating = False
Sheets("sheet1").Copy
With ActiveSheet
'コピー先のブックオープン
'Workbooks.Open ThisWorkbook.Path & "\Backup.xls"'(同じフォルダに置く場合)
Workbooks.Open Filename:="C:\Users\xxx\Documents\Backup.xls" '(パスを指定する場合)
.Move Before:=Workbooks("Backup.xls").Sheets(1) 'オープンしたブックへシートのコピー
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
|
|