Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23067 / 76738

←次へ　｜　前へ→


	【59042】シートコピーの上書き

マイキー - 08/11/24(月) 20:14 -


	引用なし

	パスワード

データを入力しているシートだけバックアップのため
コピーをとることを考え、こちらの投稿を参考に
以下のコードにてバックアップをとることが出来るようになりましたが、
このコードを実行する度に、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

0 hits

▼

【59042】シートコピーの上書き マイキー 08/11/24(月) 20:14

≪