セルをダブルクリックすると、不特定のフォルダ内にある、セルの値を含む名前のファイルが開くマクロを教えて下さい。

質問

マクロ初心者です。
いろいろ検索してみましたが、見つけられなかったので教えて下さい。

セルをダブルクリックすると、そのセルの値を含むファイルが開くようにしたいのですが、ファイル名はセルの値と完全に一致してはいません。但し、必ずセルの値でファイル名は始まります。
例：　セルの値＝"A"
　　　開きたいファイル名は＝　
"AA　12345987.xls"とか"BCBB 657.xls
開きたいファイルは、C:\ww\001、C:\ww\022、C:\ww\303、、、いずれかのフォルダ内にあります。　C:\wwまでは同じです。

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
を使って、特定フォルダ内にある、セルの値と完全に一致する名前のファイルを開く方法は、検索をくりかえして見つけることができました。

ファイルが存在するパスを特定できず、
ファイル名が、セルの値と完全には一致していないファイルを自動的に開く方法がありましたら、教えて下さい。お願いします。

回答No.1

n-jun · ベストアンサー

＞ファイル名が、セルの値と完全には一致していないファイルを自動的に開く
部分一致しているＢｏｏｋを全て開くと言う事でしょうか？

補足

拝見してくださってありがとうございます。

はい。　部分一致しているBookを全て開きたいです。

ファイル名の一番最後が、修正があった場合はRev2,REV3,(rev4) となっていたりして規則性がなく、本当は一番最新のファイルのみ開きたいのですが、そこまで高望みはしていないのです。

よい方法ありましたらどうかよろしくお願いします。

回答No.3

imogasi

質問者は、やりたいことだけ書いているが
この質問に必要なスキルは、どんなものが必要か考えているのかな。
要素に分解すること。
（１）あるフォルダにある、ファイル名を１つずつ取り出す。
（２）その１つ１つのファイル名（=ブック名）が、望む（名前）文字列を含むかどうかを調べる。
（３）（Ａ）含んでいれば、ブックを開く
　　　（Ｂ）含んでいなければ次のファイル名のチェックに行く
（４）最後にどういうときにファイル探索は終るのか。
こういう風に考えるのは、ＶＢＡコードを知らなくても経験を積むとわかる。質問者は経験が少なく、この質問も背伸び問題でしょう。
ーーー
（１）（４）はＷＥＢ照会すれば記事が腐るほどあります。
１例は
http://www.moug.net/tech/exvba/0060001.htm
で
'Workbooks("Book1.xls").Activate　と
'ChDir myPath　をコメント化すること（とりあえず働か無くする）
＜－－（　）の部分は全て削除して
実行
シートにエクセルブック名の一覧が出る。
これで様子がつかめるでしょう。
この中でも
myFName = Dir()
と
myFName = Dir("*.xls")
が要点です
ーー
（２）はＩｎｓｔｒ関数を使います。
質問の場合、チェックしたいファイル名の型は複数あるようだから
繰り回して聞く。
フォルダは特定の１つらしいから、上記のChDir myPathのところを修正する。
判らなければ、その語句で（例　ＩｎｓｔｒやChDir）ＷＥＢ照会すればよいのだ。
それの積み重ねで経験が増える。
丸投げの質問のフル回答を実行して、動きましたなんて回答者が多いが、心得違いです。

回答No.2

n-jun

私の環境で作ったそのままですが。
Ｗドライブのaaa,bbb,cccフォルダにある123・・・.xlsと言うＢｏｏｋを
開いていくサンプルです。

Sub　Test()
　　　　Dim　myPath　As　String
　　　　Dim　myFName　As　String
　　　　Dim　myFil　As　String
　　　　Dim　i　As　Integer
　　　　Dim　v　As　Variant

　　　　myFil　=　"123"　'　Target.Valueに置き換える

　　　　'　開いていきたいフォルダ名
　　　　For　Each　v　In　Array("aaa",　"bbb",　"ccc")
　　　　　　　　myPath　=　"W:\"　&　v　&　"\"
　　　　　　　　myFName　=　Dir(myPath　&　myFil　&　"*.xls")

　　　　　　　　Do　While　myFName　<>　""
　　　　　　　　　　　Workbooks.Open　Filename:=myPath　&　myFName
　　　　　　　　　　　myFName　=　Dir()
　　　　　　　　Loop
　　　　Next
End　Sub
ご参考になれば。

お礼

n-junさんが記述して下さったサンプルを参考にして
いろいろやってみます。
有り難うございました。