Excel VBA質問箱 IV

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

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


64167 / 76738 ←次へ | 前へ→

【17153】Re:マクロで新しいブックの作成と諸処理について
お礼  はっしー  - 04/8/24(火) 9:19 -

引用なし
パスワード
   Asaki様
たびたびありがとうございました。
おかげさまでdestination見つかりました。

結果、新規に作成したbookにペーストできたのですが、新規に作成したbookに新しいシートが作成されてしまいました。
以下コードです。

Workbooks.Add

Workbooks("Book1").Sheets("sheet1").Name = "kaitousya"
Workbooks("Book1").Sheets("Sheet2").Name = "kaitou"

Workbooks(bookmei).Worksheets("hyousi").Copy Workbooks("Book1").Sheets("kaitousya")
Workbooks(bookmei).Worksheets("enquete").Copy Workbooks("Book1").Sheets("kaitou")

結局これに

Application.DisplayAlerts = False
Workbooks("Book1").Sheets("kaitousya").Delete
Workbooks("Book1").Sheets("kaitou").Delete
Workbooks("Book1").Sheets("sheet3").Delete
Application.DisplayAlerts = True

を付け加えることによって、欲しい結果を得ることができました。
ちなみにdetinationでシートを明示しないと、コピーそのものがされないみたいです。
ex.
Workbooks(bookmei).Worksheets("hyousi").Copy Workbooks("Book1")
→これだとコピーされません。

いつもいつもお世話になって恐縮です。
誠ににありがとうございました。

0 hits

【17126】マクロで新しいブックの作成と諸処理について はっしー 04/8/23(月) 15:35 質問
【17129】Re:マクロで新しいブックの作成と諸処理に... Asaki 04/8/23(月) 15:45 回答
【17135】Re:マクロで新しいブックの作成と諸処理に... はっしー 04/8/23(月) 17:32 質問
【17136】Re:マクロで新しいブックの作成と諸処理に... Asaki 04/8/23(月) 17:40 回答
【17153】Re:マクロで新しいブックの作成と諸処理に... はっしー 04/8/24(火) 9:19 お礼
【17154】Re:マクロで新しいブックの作成と諸処理に... つん 04/8/24(火) 10:05 発言
【17155】Re:マクロで新しいブックの作成と諸処理に... Jaka 04/8/24(火) 11:24 発言
【17161】Re:マクロで新しいブックの作成と諸処理に... Jaka 04/8/24(火) 12:21 発言
【17163】Re:マクロで新しいブックの作成と諸処理に... Asaki 04/8/24(火) 12:51 回答
【17236】Re:マクロで新しいブックの作成と諸処理に... はっしー 04/8/25(水) 10:46 お礼

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