エクセルのマクロについて教えてください。

下記のマクロは以前教えて頂いたマクロを少し変更したマクロです。
マクロを実行するとマクロを設定しているブックのサブフォルダ内にある
ファイル名「前青紙.xlsx」が開きます。
以前のマクロは
Sub 前青紙を開く()
On Error Resume Next
Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査（ﾌﾀｯﾄ用）\前青紙.xlsx"
End Sub
となっており、サブフォルダ名を直接「\前審査（ﾌﾗｯﾄ用）\」と指定しておりましたが
「（ﾌﾗｯﾄ用）」の部分が物件により変更になりますので
変更マクロ
Sub 前青紙を開く()
On Error Resume Next
Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査*\前青紙.xlsx"
End Sub
「\前審査*\」を変更をしましたが、
マクロが実行できませんでした。
サブフォルダ先をワイルドカードで
「\前審査*\」として
マクロを実行できる方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2024/01/15 14:42

＞「（ﾌﾗｯﾄ用）」の部分が物件により変更になりますので

ThisWorkbook.Path に該当するフォルダが複数ある場合はどうするのでしょう？
・・・１つだけという事で　一例です

Sub 前青紙を開く()
On Error Resume Next
Dim fol As String
fol = Dir(ThisWorkbook.path & "\前審査*", vbDirectory)
If fol <> "" Then
Workbooks.Open Filename:=ThisWorkbook.path & "\" & fol & "\前青紙.xlsx"
End If
End Sub

この回答へのお礼

回答ありがとうございます。
該当するフォルダは一つだけでしたので
教えて頂きましたコードで上手くできました。
感謝いたします。
何時も助けて頂きましてありがとうございます。

お礼日時：2024/01/15 14:48