Path vast leggen bij importeren bestand

[tepke]

Hoi

hieronder heb een stuk programma en zit vast in het volgende, ik wil dat de gebruiker een bestand kiest csv dat ik in een bepaalt worksheet ga importeren. dit werkt. maar ik wil het path naar het bestand default vastleggen bv g:\archief\csv\
zodat de gebruiker niet het hele path elke keer hoeft te zoeken. wat zou ik dan moeten toevoegen of veranderen?

Sub load1_csv()
Dim fStr As String
 Sheets("Rapport1").Activate
 
 With Application.FileDialog(msoFileDialogFilePicker)
 .Show
 .Title = "Zoek hier het bestand"
 
 If .SelectedItems.Count = 0 Then
 MsgBox "Cancel Selected"
 Exit Sub
 End If
 'fStr is the file path and name of the file you selected.
 fStr = .SelectedItems(1)
 End With
 With ThisWorkbook.Sheets("rapport1").QueryTables.Add(Connection:= _
 "TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("rapport1").Range("$A$1"))
 .Name = "CAPTURE"
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .TextFilePromptOnRefresh = False
 .TextFilePlatform = 437
 .TextFileStartRow = 1
 .TextFileParseType = xlDelimited
 .TextFileTextQualifier = xlTextQualifierDoubleQuote
 .TextFileConsecutiveDelimiter = False
 .TextFileTabDelimiter = True
 .TextFileSemicolonDelimiter = False
 .TextFileCommaDelimiter = True
 .TextFileSpaceDelimiter = False
 .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
 .TextFileTrailingMinusNumbers = True
 .Refresh BackgroundQuery:=False
 End With
End Sub

 

[HSV]

With Application.FileDialog(msoFileDialogFilePicker)
 .InitialFileName = "g:\archief\csv\"
 .Filters.Add "CSV-Bestanden (csv)", "*.csv", 1
 .FilterIndex = 1
 .AllowMultiSelect = False
 .Title = "Zoek hier het bestand"
 .Show

 

[Warme bakkertje]

With Application.FileDialog(msoFileDialogFilePicker)
 .Show
 .Title = "Zoek hier het bestand"
 .InitialFileName = "g:\archief\csv\"