シートをコピーする際のVBAコードについて

質問

お世話になります。

sample.xls　というファイルがあります。
このファイルの中にVBA処理にて、現在のシートをコピーする処理を行います。

Windows("sample.xls").Activate
Sheets("sheet1").Select
Sheets("sheet1").Copy after:=Sheets(Sheets.Count)

sample.xlsは原本ファイルとなり、実際の運用時は拡張子の前に年月を表示する
形で保存されます。
（sample201106.xls、sample201109.xlsなど）

こうなってしまうと、VBAで定義した
Windows("sample.xls").Activate

ファイル名が変わることで、この部分にエラーが生じます。
ファイル名が変更されても、上記コードがうまく機能するようにする方法はありますでしょうか？
アドバイスいただけたらと思います。

よろしくお願いします。

回答No.2

luka3 · ベストアンサー

原本ファイルがいつまで必要なのかがいまいちはっきりしませんが、
あくまで自分自身(sampleYYYYMM.xls)の原本シートをコピーしたいのであれば3行まとめて

ThisWorkbook.Sheets("sheet1").Copy after:=Sheets(Sheets.Count)

でいいと思います。
コピーするだけならSelectは不要です。

お礼

回答ありがとうございました。
その後調べてみて、Thisworkbook.Activateにて、ファイル名を指定せずに解決できることが分かりました。

回答No.1

めとろいと（@naktak）

現在のシートをコピーするという部分だけで考えれば
ActiveSheet.Copy after:=Sheets(Sheets.Count)

で済むと思いますが、sample.xlsにフォーカスを
当てて処理を行いたいのでしょうか？

原本(VBAあり)から、別ブック(VBAあり)が作成され、
更に別ブック(VBAあり)からVBAを実行することがある、
というイメージでしょうか？
もしそうなら、ファイルを起動した直後にActiveWorkbookオブジェクトを
保持し続け、必要なときにActiveにすればいいと思います。

お礼

回答ありがとうございました。
その後調べてみて、Thisworkbook.Activateにて、ファイル名を指定せずに解決できることが分かりました。