|
いつもお世話になっております 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
|
|