|
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")
→これだとコピーされません。
いつもいつもお世話になって恐縮です。
誠ににありがとうございました。
|
|