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

質問

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

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

回答No.1

BLUEPIXY · ベストアンサー

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

お礼

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