Excel VBA質問箱 IV

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

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


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

75217 / 76732

←次へ　｜　前へ→


	【5957】シート削除について

ミッフィー - 03/6/11(水) 10:19 -


	引用なし

	パスワード

はじめまして。
シート削除について教えてください。

ブック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

2 hits

▼

【5957】シート削除について ミッフィー 03/6/11(水) 10:19

≪