Excel VBA質問箱 IV

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

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


23061 / 76732 ←次へ | 前へ→

【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

1 hits

【59042】シートコピーの上書き マイキー 08/11/24(月) 20:14 質問
【59043】Re:シートコピーの上書き かみちゃん 08/11/24(月) 20:22 発言
【59044】Re:シートコピーの上書き マイキー 08/11/24(月) 20:26 発言
【59045】Re:シートコピーの上書き かみちゃん 08/11/24(月) 20:31 発言
【59046】Re:シートコピーの上書き マイキー 08/11/24(月) 20:46 お礼
【59125】Re:シートコピーの上書き マイキー 08/11/29(土) 21:38 質問
【59126】Re:シートコピーの上書き かみちゃん 08/11/29(土) 22:00 発言
【59127】Re:シートコピーの上書き マイキー 08/11/29(土) 22:22 お礼

23061 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free