openen van bestand met variabele naam

[Nico S]

Hoi allemaal,

Zoals de meesten hier heb ik een beetje moeite met VBA. Windows help helpt niet, dus vraag ik het hier. Momenteel probeer ik een specifiek bestand (bestandnr1) te openen, waar soms een kleine verandering plaats vindt in de naam (bestandnr2). De locatie blijft het zelfde. Wat ik heb geprobeerd is:

Workbooks.Open Filename:= "C:\path\bestandnr*.xls"

Maar hierbij wordt de wildcard niet herkent als wildcard.
Mijn ander poging was over een andere boeg:

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\path"
    .Filename = "bestandnr*"
   If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        MsgBox fs
    Else
        MsgBox "There were no files found."
    End If
End With

Hierbij wordt het bestand wel gevonden, maar ik weet het bestand niet te openen. Helaas kom ik er niet echt achter waar de schoen wringt.
Heeft er iemand een goede tip of een mooie oplossing?

 

[Nico S]

Opgelost

Soms doet een nachtje slaap veel goeds. Dit is mijn oplossing

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\PATH"
    .Filename = "Bestandnr*"
    If .Execute = 1 Then
        fileToOpen = .FoundFiles(1)
    Else
        exit sub
    End If
End With
    Workbooks.Open fileToOpen

Het kan vast eleganter, maar dit werkt ook.