Variabele bestandsnaam openen

[duco243]

Hallo,

Ik hoop dat iemand mij met het volgende kan helpen.

VBA opent bestand1
Vervolgens wordt een ander bestand geopend om van daaruit gegevens in bestand1 te zetten
Dit herhaald zich enkel keren met steeds wisselende bestandsnamen

Dit heb ik al:

Dim Filename1 As String
    Dim Blad As String
    Dim Loc1 As String
        
    Blad = "A1"
    Loc1 = (Blad & " 1")
       

    Const FilePath = "C:\Users\duco\Documents\"
    

    Filename1 = ActiveWorkbook.Name
    Windows(Filename1).Activate
    Sheets(Blad).Select
    Rows("75:125").Select
    Application.CutCopyMode = False
    Selection.ClearContents
     Range("A1").Select

    Workbooks.Open FileName:=Dir(FilePath & Loc1)

Situatie is dus: Bestand1 is actief, blad A1 is actief. Nu moet vanuit een bestand met de naam "A1 1.xls" data worden opgehaald
Bij de laatste regel van de code komt er een foutmelding, weet iemand hoe ik op deze wijze het bestand geopend krijg?

n.b. Als ik er Workbooks.Open FileName:=Dir(FilePath & "A1 1.xls") van maak doet ie het wel maar dat is niet de bedoeling



Alvast bedankt voor het meedenken


gr.

Duco

 

[Warme bakkertje]

Dir(FilePath & Loc1 & ".xls")

 

[duco243]

Bedankt Warm Bakkertje voor de hulp.

De oplossing was achteraf best logisch eigenlijk maar ik zag het even niet.

ik zal de vraag als opgelost melden.