Open .txt file with delimited columns from fixed folder

[MyriamSL]

Hi,

I'm currently trying to build an Excel Macro that would open the needed .txt file, with columns delimited by a comma, but from a fixed folder. My macro works perfectly fine to open the file I need, but I would like to make it better, and that the window that opens to let me choose my file always open in the same folder.

This is what I have so far:

I've searched forums to find how to open from a specific folder, but can't seem to combine that with the above code.

Thanks for your help!

 

[DanteAmor]

Hi and welcome to MrExcel!

Change this name: "C:\work" to your initial folder.

Try this:

Sub Open_Txt()
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Select txt file"
    .Filters.Add "Txt Files", "*.txt"
    .AllowMultiSelect = False
    .InitialFileName = "C:\work"
    If .Show Then
      Workbooks.OpenText Filename:=.SelectedItems.Item(1), _
        Origin:=xlWindows, _
        StartRow:=1, _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=True, _
        Space:=False, _
        Other:=False
    End If
  End With
End Sub