以下（未经测试）代码将打开它找到的文件夹中与文件模式匹配的第一个文件：

Sub open_with_pattern()

    Dim fn As String
    fn = Dir(ThisWorkbook.Path & "\PM Wo  7.6*.xlsb")
    
    If fn = "" Then
        MsgBox "No file found."
        Exit Sub
    End If
    
    Dim wb As Workbook
       Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & fn, UpdateLinks:=False, ReadOnly:=True)
    '...

End Sub

注意：我注意到在你的问题的文件名有一个双空格，所以我复制了，但你可能需要减少到一个，如果这是所有的文件名。