VBA Workbooks関数について

Question

WorkBooks 関数について質問です

Workbook型の変数に値をセットする際にWorkbooks関数を使って

Dim wb As Workbook
Set wb = Workbooks("ファイル名")

"ファイル名"となっているところは実際は変数を使って、セットしているのですが、
実行すると、

インデックスが有効範囲にありませんとメッセージがでて指定できません。

デバックを試みると確かに"ファイル名"には値が入っているのですが、エラーとなります。
"ファイル名"のファイルも確かに存在することも確認しています。

このような場合、あとはどのような原因が考えられますでしょうか？
ご教授お願いします。

ちなみに、"ファイル名"と同じファイルが複数あった場合も同様なエラーとなるのでしょうか？

Answer 1

こんにちは。

こちら（VBAでWorkbooks("")の中身は絶対パスの指定って出来ないのでしょうか？）が参考になるかと思います。

要は、Workbooksオブジェクトでのブックの選択は開いているものが対象なので、開いていない状態ではエラーになるということです。
以下のようにしてみて下さい。

Dim wb As Workbook
Set wb = Workbooks.Open("フルパスファイル名")
・・・シートコピーとかの処理・・・
wb.Close

Comments

[eragonasable]

開いているブックが対象になるということですか。
指摘通りの変更で動きました。ありがとうございます。

Answer 2

Workbooksオブジェクトには開いているものが格納されているので、まだ開いていないのであれば、saziさんの回答にあるようにOpenで開くのが正しい手順になると思います。

ちなみに、"ファイル名"と同じファイルが複数あった場合も同様なエラーとなるのでしょうか？

Excelは同一ファイル名は同時に開けない仕様です。
おそらくOpenしたときにエラーになるものと思われます。

Comments

[eragonasable]

エラーの原因となりそうということですよね。
一度いらないファイルは消してからやり直してみます。

[ttyp03]

いえ、違いますよ。
同じファイル名のファイルは開けないという仕様です。
例えばAというパスとBというパスに同じファイル名のC.xlsxというファイルがあった場合、
Workbooks.Open("A\C.xlsx")
Workbooks.Open("B\C.xlsx")
とした場合に、2回目のOpenでエラーになるということです。

[sazi]

to:eragonasableさん
>Excelは同一ファイル名は同時に開けない仕様です。
エクセルを操作していて、違うフォルダにある同じ名前のエクセルブックを開こうとすると、「同じ名前のブックは開けません」ってメッセージが出ますよね。あれと同じことです。

[eragonasable]

すみません。言葉足らずでした。ttyp03さん、saziさんが返信してくれているように、二度目のOpenで同名ファイルを開いた場合に、1度目に開いたファイルを閉じる処理などを行わないとエラーとなってしまうという意味合いでした。

[ttyp03]

理解しているなら良いです。
文面からは「同名ファイルが複数あるとエラーが発生する可能性がある」と読み取れたものですから、念のためコメントしました。