セル内容を含めた名称のBookをアクティブにする

質問

色々と検索して試しましたが、素人のため結局わからず困っています。質問させていただきますので、よろしくお願いいたします。

Excelで、Book1.xlsというブックの中の　セルＡ1　に入力されている内容を含めた名称のブックを開き、そのブックをアクティブにする方法を教えてください。

現在は、
Workbooks.OpenFileName:="C:\Users\0000データ\" & Range("A1").Value & ".xls"

となっていて、Book1のセルA1の内容と同じ名称のBookを0000データのファイルの中から選んで開くようにはなっています。

が、セルA1の内容を含む名称のBookを開くようにしたいのですが、できません。
例えば、Book1のセルA1がAAAという内容ならば、AAA田中.xlsを開く。（ちなみに、AAA斉藤など、AAAの部分が同じで後者が違うというようなBookはありません。でも、AAAやBBBの後者の文字は変動します。）

その後、Book1.xlsの内容をコピーしてAAA田中.xlsの方に貼り付けをしたりする作業をしたいのですが、その都度AAA田中.xlsのBookをアクティブにするために、Windows("AAA田中.xls").Activateとしてしまうと、次にBBB吉田.xlsの作業をするなどとなった場合に使えませんので、この部分も、Book.xlsのセルA1の内容を利用して設定したいです。

どうか、よろしくお願いします。

回答No.2

kybo · ベストアンサー

以下の様な感じで開けばいいです。

Dim I As Variant
I = Dir("C:\Users\0000データ\" & Range("A1").Value & "*.xls", vbNormal)
Workbooks.Open Filename:="C:\Users\0000データ\" & I

その同じコード内で、アクティブにするだけであれば、以下でいいです。

'アクティブにする
Windows(I).Activate

お礼

教えていただいた通りにやってみましたら、理想的な動作になりました！！
色々やってみたものの、なかなかできなかったので、本当に感謝・感謝です。
ありがとうございました。
自分も、もっと勉強していきます！

回答No.1

mt2008

いっそのこと、↓こんな感じで適当なセルに対象ブック名を入れるようにして、そのセルの値を使用してブックを開いたり、アクティブにしたりしては？

Range("A2") = Dir("C:\Users\0000データ\" & Range("A1").Value & ".xls")

お礼

なるほど！そうですね。
そういう方法もありですね！
また、やってみたいと思います。
ありがとうございました。