excelシートから別のexcelシートへのコピー

動作環境は、OS:XP、VB6+SP6です。

シート名がわかっている場合ですと
Sheets(Array("sheet1", "sheet2")).Copy Before:=Workbooks("コピー先.xls").Sheets(1)
のようにできるのですが、不明な場合はどうしたらよいのでしょうか？
コピー元ワークブックのシート数とシート名が不明なので、まずコピー元のシート名を取得しました。
しかし文字列だと、上記Arrayの中に埋め込むことができません。
どなたかご存知でしたら教えてください。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/10/21 12:56

>不明な場合

全部のシートをコピーするという意味なら
Sheets.Copy Before:=Workbooks("コピー先.xls").Sheets(1)
でいいと思います。

この回答へのお礼

そういう方法で良いのですね。
有難うございました。

お礼日時：2005/10/21 18:17