variable source folder for import

[little_alien]

Morning,

looking for some help with importing CSV files but with a variable source folder -

I need to have a Button(VBA) that opens and allows the user to select a source folder,
after which it will import the CSV files within.

I have the Query's for appending the files already but the source folder has always been hard coded.

Cheers

 

[Fluff]

Hi, welcome to the board.
How about

Sub OpenFldr()

    Dim FldrPth As String
    Dim InitPth As String
    Dim FName As String
    Dim Fldr As Object
    
    InitPth = "[COLOR=#ff0000]C:\Users\Fluff\Documents[/COLOR]"
    
    Set Fldr = Application.FileDialog(4)
    With Fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = InitPth
        If .Show <> -1 Then Exit Sub
        FldrPth = .SelectedItems(1)
    End With
    
    FldrPth = FldrPth & "\"
    FName = Dir(FldrPth & "*.csv")
    Do While Len(FName) > 0
        Workbooks.Open (FldrPth & FName)
        'Your code here
        FName = Dir
    Loop

End Sub

Change the path in red to the path you want to start in