Excel VBA質問箱 IV

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

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


64189 / 76733 ←次へ | 前へ→

【17126】マクロで新しいブックの作成と諸処理について
質問  はっしー  - 04/8/23(月) 15:35 -

引用なし
パスワード
   いつもお世話になっております m(_ _)m。
本日も皆様のお知恵をお借りしたく、参上いたしました。
1.ワークブックbookmei(bookmeiは変数で、ここにブックの名前が格納されています)にシートhyoushiとenqueteがあります。hyoushiのセルL9には社員番号が格納されています。
2.bookmei内のマクロで新規にブックを作成します。
3.新規ブックの名前は社員番号にenqをつけたものにします。
4.新規のブックのシート1とシート2の名称をそれぞれkaitousya、kaitouにします
5.新規ブックのkaitousyaとkaitouにそれぞれbookmeiのhyoushiとenqueteをコピーペーストします。
6.新規ブックをセーブして閉じます。

と、以上のことを実現しようとして以下のコードを記述したのですが、コピーペーストするところで新たにブックが開かれてしまい(Book2、Book3)、そちらにデータがペーストされ、2.で作成されたブックにデータがペーストされません(_ _,)/~~  コウサン。
何かいい解決方法があったらご教示いただけないでしょうか。
よろしくお願いいたします。

なお、シートを非表示にしている都合上、active,activate,selectなどを使うと、不具合が起きてしまうようなので、一切使わないでコーディングしております。

'ansfileはバリアント型の変数です
ansfile = Workbooks(bookmei).Worksheets("hyoushi").Cells(9, 12).Value
ansfile = Format(ansfile, "000000\e\n\q")

Workbooks.Add

'できればこの時点でブックの名称を変更したいです。
Workbooks("Book1").Sheets("Sheet1").Name = "kaitousya"
Workbooks("Book1").Sheets("Sheet2").Name = "kaitou"

Workbooks(bookmei).Worksheets("hyoushi").Copy
Workbooks("Book1").Sheets("kaitousya").Paste
Workbooks(bookmei).Worksheets("enquete").Copy
Workbooks("Book1").Worksheets("kaitou").Paste
Workbooks("Book1").SaveAs Filename:=ansfile
Workbooks(ansfile).Close

1 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 お礼

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