|
はじめまして。
シート削除について教えてください。
ブック1のシートをブック2へコピーし、
ブック2の不要シートを削除したいのですが、
ブレイクポイントをはって、ステップ実行を行うと、
保存したブック2を開くことができるのですが、
マクロの実行から一連の処理を行うと、
アプリケーションエラーメッセージが表示され、
ブック2が開けません。
(「メモリが"written"になることはありません」と表示され、
マシン再起動をしないとブックの削除もできなくなります)
どのようにしたら、マクロの実行からブック2を保存して
開くことができるのでしょうか?
ご教授よろしくお願いします。
sub test()
'保存用ブックにコピー
Windows("ブック1.xls").Activate
Sheets("コピー").Select
Sheets("コピー").Copy Before:=Workbooks("ブック2.xls").Sheets("Sheet1")
'保存用ブックのいらないシートを削除
Windows("ブック2.xls").Activate
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.Delete
end sub
|
|