Excel VBAで複数シートをコピーする

Excel VBAで複数のシートを新たらしいブックにコピーする方法が分かりません。

一応、Selectで全てのシートを選択し
コピーする方法は分かるのですが
出来ればSelectなどの画面遷移をプログラム内に含ませたくありません

シートは n件存在します。
ご存知の方がおられましたら
ぜひ、教えて頂けないでしょうか？

No.3 ベストアンサー 回答者： sgh 回答日時： 2002/01/22 20:34

すいません、勉強不足でした。

ただ単純に「全てのシートを選択」し「新規ファイルにコピー」という動作であれば、
sheets.Select
sheets.Copy
だけでできました。

No.2 回答者： sgh 回答日時： 2002/01/22 20:13

一発で新規ファイルに複数のシートコピーするのは以下のようにすればできそうです。

(マクロの記録結果)
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy

いずれにせよ、シート名の取得はループを使うのが簡単ではないでしょうか。

No.1 回答者： sgh 回答日時： 2002/01/22 14:04

全部のシートに対して処理を行うのであれば、"For Each"は使えませんか？

Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
'コピー処理を記述
Next

この回答へのお礼

回答ありがとうございます。
質問には書いてなかったのですが、
確かに For Eachでも可能なのですが
できれば Loop を使わずに
１度にコピー出来ないかと思いまして…

お礼日時：2002/01/22 16:38