Excelのマクロについて教えてください。

下記のマクロを実行するとマクロを設定しているブックと同じフォルダ内にある
ファイルを開く事が出来ます。
ファイル名「前青紙.xlsx」この部分をワイルドカードで
「*(提出用).xlsx」に変更する方法を教えてください。
現状のマクロ
Sub ブックを開く2()
On Error Resume Next
Workbooks.Open Filename:=ThisWorkbook.Path & "\前青紙.xlsx"
End Sub
以上です。よろしくお願いいたします。

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/06/13 13:32

以下のようにしてください。

Sub ブックを開く2()
Dim fname As String
fname = Dir(ThisWorkbook.Path & "\*(提出用).xlsx")
If fname <> "" Then
Workbooks.Open fileName:=ThisWorkbook.Path & "\" & fname
End If
End Sub

この回答へのお礼

回答ありがとうございます。
上手く行きました。

お礼日時：2024/06/13 13:37

No.1 回答者： naktak 回答日時： 2024/06/13 10:55

この辺りを参考にしてください。

https://www.limecode.jp/entry/utility/partialmat …

複数ファイルが存在する可能性がある以上、質問にあるようなコードだけでは実現できません。

この回答へのお礼

回答ありがとうございます。
参考にさせて頂きます。

お礼日時：2024/06/13 11:11