VBAオープンブックはファイル名の最初の部分に基づいていますか？

Question

私は、VBAを使用してExcelブックを開くしようとしています：

'Open Planner 
On Error Resume Next 
Set WB = Workbooks("(FILE NAME).xlsx") 
On Error GoTo 0 
If WB Is Nothing Then 'open workbook if not open 
    Set WB = Workbooks.Open("G:\BUYING\Food Specials\6. Depot Memos\" & ThisWorkbook.Worksheets(1).Range("T8").value & "\(File Name).xlsx", Password:="samples", WriteResPassword:="samples", UpdateLinks:=False) 
End If 

私が持っている問題は、私のファイルがそうのような時間までの時間から名前を変更している：私はベースのファイルを開くことができますどのように

Depot Memo 12 - 13 
Depot Memo 13 - 14 
Depot Memo 15 - 16 

ファイル名の「Depot Memo」の最初の部分に？ 私はVBAの新しいブランドですので、本当に助けていただければ幸いです。事前に

おかげ

Answer 1

hereからの回答に基づいて、この例を試してみてください（@Alex K.へのアウトを叫ぶ）：

ただ、このようなあなたのコードの一部を置き換え：

'Open Planner 
'This is your routine here 
On Error Resume Next 
Set WB = Workbooks("(FILE NAME).xlsx") 
On Error GoTo 0 
If WB Is Nothing Then 'open workbook if not open 
    Set WB = FindDepotMemo 
End If 
'and there you need another check if WB is nothing 

そして、この機能をプロジェクトに追加してください：

Function FindDepotMemo() As Workbook 
    Dim Path As String 
    Dim FindFirstFile As String 

    Path = "G:\BUYING\Food Specials\6. Depot Memos\" & ThisWorkbook.Worksheets(1).Range("T8").Value & "\" 

    FindFirstFile = Dir$(Path & "Depot Memo*.xlsm") 

    If (FindFirstFile <> vbNullString) Then 
     Set FindDepotMemo = Workbooks.Open(Filename:=Path & FindFirstFile, Password:="samples", WriteResPassword:="samples", UpdateLinks:=False) 
    End If 
End Function