Opgelost bestanden openen met een variabele naam

[Egbert12345]

Beste forummers, het is niet mogelijk om een voorbeeldbestandje te maken, maar wellicht willen jullie toch op deze vraag reageren.

Zie onderstaande macro. Die opent een csv-bestand, maar soms kan die bestandsnaam wijzigen. Het blijft wel altijd beginnen met (CSV_A_accounts). Hoe moet ik deze regel aanpassen, er moet ergens een * teken worden ingevoegd.

Groet Egbert

Sub Macro4()
Workbooks.Open Filename:="C:\Users\eleij\Documents\Data_Inlezen\CSV_A_accounts_20250101_20250604.csv"
End Sub

 

[AHulpje]

Staat er in genoemde locatie altijd maar één .CSV bestand waarvan de naam begint met "CSV_A_accounts"?

 

[Egbert12345]

Dat klopt

 

[edmoor]

Of kies het gewenste CSV bestand:

Sub Macro4()
    Bestand = GetFileName
    If Bestand <> "" Then Workbooks.Open Bestand
End Sub

Function GetFileName()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Kies een bestand"
        .InitialFileName = Environ("Userprofile") & "\Documents\"
        .Filters.Clear
        .Filters.Add "Excel bestanden", "*.csv"
        If .Show = True Then
            GetFileName = .SelectedItems(1)
        End If
    End With
End Function

 

[AHulpje]

Dan zou zoiets kunnen:

Sub test()
    csvbestand = Dir("C:\Users\eleij\Documents\Data_Inlezen\CSV_A_accounts_*.csv")
    If csvbestand <> "" Then
        Workbooks.Open Filename:=csvbestand
    Else
        MsgBox "Geen csv bestand gevonden"
    End If
End Sub

 

[Egbert12345]

Bedankt Edmoor en AHulpje