| |
いつもお世話になっております ｍ(_ _)ｍ。
本日も皆様のお知恵をお借りしたく、参上いたしました。
1.ワークブックbookmei(bookmeiは変数で、ここにブックの名前が格納されています）にシートhyoushiとenqueteがあります。hyoushiのセルＬ９には社員番号が格納されています。
2.bookmei内のマクロで新規にブックを作成します。
3.新規ブックの名前は社員番号にenqをつけたものにします。
4.新規のブックのシート１とシート２の名称をそれぞれ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
|
|
はっしー
- 04/8/23(月) 15:35 -
