【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 · ベストアンサー

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

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

補足

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

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

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

回答No.5

hana-hana3

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

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

お礼

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

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

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

回答No.4

fatteacher

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

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

お礼

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

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

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

回答No.3

suz83238

いや、だから
strFileName = "TEST.xls"
Windows(strFileName).Activate
ということ。

お礼

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

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

回答No.2

hallo-2007

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

お礼

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

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