ファイル名の年を無視して、VBAでファイルを開く

一部のファイル名で開く等で検索して色々試してみるものの、うまくいかず質問させていただきます。
ファイル名は　

配置表(入力用)2015年 　11月　

ですが、この年を無視した他の文字でのファイルを開きたいのです。

パスは

C:\Users\英明\Desktop\陽平

です。どうやってもうまく動いてくれません。どなたかわかるから教えていただけませんか。
よろしくお願いします。

No.1 ベストアンサー 回答者： gogokaraganbaru 回答日時： 2015/11/08 00:08

ファイル名取得する際に、無視したい文字の部分を「*」にすれば取得できるかと思います。

こんな感じですかね。

↓↓

Sub openTargetFile()
Const findPath As String = "C:\Users\英明\Desktop\陽平\"
Const findName As String = "配置表(入力用)*年 　11月*"

Dim getName As String
getName = Dir(findPath & findName)

Do While getName <> ""
Workbooks.Open findPath & getName
getName = Dir()
Loop
End Sub

この回答へのお礼

ありがとうございます。とても嬉しいです。
*の位置を調整したら年度を無視したファイルOpenできました。
大変助かりました。

お礼日時：2015/11/08 18:09