Excel VBA質問箱 IV

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

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


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

64236 / 76807

←次へ　｜　前へ→


	【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