Workbooks.Open Filename:=ВыбраннаяВамиДиректория+"\"+ИмяФайла, ReadOnly:=True

Function getFolder()
     Dim oShell As Object, oFolder As Object

     Set oShell = CreateObject("Shell.Application")
     Set oFolder = oShell.BrowseForFolder( 0 , "Where is my files?",  0 )
     Set oShell = Nothing
     If oFolder Is Nothing Then
         ' user cancel dialog, nothing were selected
         Exit Function
     End If

     ' add your code here
     getFolder = oFolder.self.Path
     
    Set oFolder = Nothing
End Function
Sub FilesSearch()
       
    strFolder = getFolder
    
    If strFolder = "" Then Exit Sub
    
    Set ShA = ActiveSheet
    i =  1 
    
    With Application.FileSearch
        .LookIn = strPath
        .Filename = "shablon*.xls"
        If .Execute >  0  Then
            For j =  1  To .FoundFiles.Count
                Workbooks.Open Filename:=ActiveWorkbook.Path + "\" + .FoundFiles(j), ReadOnly:=True
                ShA.Cells(i,  1 ).Value = ActiveSheet.Cells( 1 ,  1 ).Value
                ActiveWorkbook.Close
                i = i +  1 
            Next
        Else
            MsgBox ("Íå íàéäåíû ôàéëû ïî øàáëîíó!")
        End If
    End With
End Sub