【Excel VBA】ブックを複数開いている際、任意のブックをアクティブにしたい

OS:Windows XP
Office:2003

複数のエクセルブックを開いている状態で、
ある任意のブックをアクティブにしてセルの操作（コピペなど）をしたいのですが、
"インデックスが有効範囲にありません"とエラーになってしまいます。

現在のソースは、

strFileName = "\\共有サーバー\共有\TEST.xls"

Windows(strFileName).Activate　←ここでエラーになる
Sheets("Sheet1").Select
Cells.Select
Selection.Copy

Windows("貼り付け先.xls").Activate
Sheets("Sheet1_n").Select
Cells.Select
ActiveSheet.Paste

です。

どこが悪いんでしょうか？
正しいコーディングを教えてください。

よろしくお願いします。

No.1 ベストアンサー 回答者： suz83238 回答日時： 2008/03/18 21:19

>Windows(strFileName).Activate　←ここでエラーになる

Windows("TEST.xls").Activate
ならOKでしょう。ファイル名を指定します。

この回答への補足

ご回答、ありがとうございます。

ファイル名は日々変わるので、
ダイレクトに指定することができないのです。

他に何か解決策はありますでしょうか？

補足日時：2008/03/18 21:26

No.5 回答者： hana-hana3 回答日時： 2008/03/19 08:45

＞ファイル名は日々変わるので、ダイレクトに指定することができないのです。

変化する条件（ファイルの選択のしかた）をプログラミングに出来るなら可能です。

この回答へのお礼

前回はありがとうございました。

変化する条件（日付がYYYYMMDD形式）はプログラミングできています。
今回はフルパスを指定したのが間違いだったみたいですね。

ご回答、ありがとうございました。

お礼日時：2008/03/19 09:23

No.4 回答者： fatteacher 回答日時： 2008/03/19 08:38

初めまして。

マクロの自動記録機能を使用すれば，宜しいのではないでしょうか。

もう一つの方法は，ユーザーホームを使って実行させる事も，出来るかと思います。

この回答へのお礼

マクロ記録をしようすると、
ダイレクトにファイル名を指定してしまうんですよね、、、。

ユーザーホームは初耳です。
調べてみます。

ありがとうございました。

お礼日時：2008/03/19 09:22

No.3 回答者： suz83238 回答日時： 2008/03/18 21:56

いや、だから

strFileName = "TEST.xls"
Windows(strFileName).Activate
ということ。　

この回答へのお礼

何度もすみません、
ファイル名だけで指定するとうまくいきました。

ありがとうございました。

お礼日時：2008/03/19 09:12

No.2 回答者： hallo-2007 回答日時： 2008/03/18 21:50

まずは、

strFileName = "EST.xls"
ファイル名に、パスは不要です。

この回答へのお礼

ご回答、ありがとうございました。

パスを含めずフィル名だけの変数にて実行するとうまくいきました。

お礼日時：2008/03/19 09:11